VB.Net - Βρείτε ένα αρχείο σε έναν σκληρό δίσκο

Αυτό το demo σάς επιτρέπει να κάνετε αναζήτηση σε σκληρό δίσκο (χωρίς να γνωρίζετε τη διαδρομή).

Σε μια φόρμα, ένα TextBox (TextBox1) και μια ετικέτα (Label1)
Αντιγράψτε / επικολλήστε τον κώδικα στην ενότητα της φόρμας.

Κώδικας

 Δημόσια Κλάση Φόρμουλα1 Μορφή Δημόσιας Σήμανσης ως Σειρά Dim Cherche ως Σειρά Sub LireRep (ByVal Chem ως String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle ως String Dim NbsR ως Ακεραίο, S ως String Chem = Chem & IIf (Microsoft.VisualBasic (Chem & Cherche) Αν το Trouver "" Τότε Trouver = "", τότε το Trouver = Chem & Trouver: Έξοδος Sub '-------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Εάν το Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Στη συνέχεια GoTo Passe2 sRep = Rep.subfolders Για κάθε sRp σε sRep S = UCase (sRp.Name ) Εάν το Trouver "" Τότε βγείτε για '------------ Elimine les répertoires système Εάν το Microsoft.VisualBasic.Left (S, 1) = "$" "Ή S = WINDOWS ή sRp.Attributes = 19 ή Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "ή Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "ή Microsoft.VisualBasic.Left (S, 4) = "ΧΡΗΣΤΗΣ" ή Microsoft.VisualB asic.Left (S, 6) = "ΟΔΗΓΟΣ" ή Microsoft.VisualBasic.Left (S, 5) = "ΕΡΓΑΛΕΙΑ" Στη συνέχεια GoTo Passe Σφάλμα Συνέχιση Επόμενο sR2 = sRp.subfolders NbsR = sR2.Count Αν Err.Number 0 Στη συνέχεια GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "\", "\", "") Trouver = Dir (sCle & Cherche) Trouver: Έξοδος Sub On Σφάλμα GoTo 0 Αν NbsR> 0 Στη συνέχεια 'lecture επαναλαμβανόμενη des sous-réperto! Res LireRep (sCle) Τέλος Εάν η πασάδα: Επόμενη πασέ2:' libère la mémoire Obj = Τίποτα Rep = Τίποτα sRep = Τίποτα sR2 = (C: \ "Sub: \"): \ n "" \ n "" Όταν το Cherche = "" ) Εάν το Trouver "" Τότε Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Τέλος Αν τελειώσει η Υποδιεύθυνση