VB.Net - Găsiți un fișier pe un hard disk

Această demonstrație vă permite să căutați pe un hard disk (fără a cunoaște calea).

Pe un formular, un TextBox (TextBox1) și o etichetă (Label1)
Copiați / inserați codul în modulul formularului.

Cod

 Forma publica Form1 Dim Trouver ca String Dim Cherche ca String Sub LireRep (ByVal Chem ca String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle ca String Dim NbsR ca Integer, S ca String Chem = Chem & IIf (Microsoft.VisualBasic (Chem & Cherche) Dacă Trouver "" Atunci Trouver = "", "" Chem și Trouver: Exit Sub '-------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Dacă Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Apoi GoTo Passe2 sRep = Rep.subfolders pentru fiecare sRp în sRep S = UCase (sRp.Name ) "Dacă ieșiți din Trouver" "Atunci ieșiți pentru" ------------ Elimine les répertoires système Dacă Microsoft.VisualBasic.Left (S, 1) = "$ "Sau S = WINDOWS Sau sRp.Attributes = 19 _ Sau Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "sau Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "sau Microsoft.VisualBasic.Left (S, 4) = "UTILIZATOR" sau Microsoft.VisualB asic.Left (S, 6) = "DRIVER" sau Microsoft.VisualBasic.Left (S, 5) = "TOOLS" Apoi GoTo Passe On Error Reluați Următorul sR2 = sRp.subfolders NbsR = sR2.Count Dacă Err.Number 0 Then GoTo Passe sCle = sRp.Path și IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "\", "\", "") Trouver = Dir (sCle & Cherche) Trouver: Ieșire Sub On Eroare GoTo 0 Dacă NbsR> 0 Apoi 'lecture recursive des sous-réperto! Res LireRep (sCle) Sfârșit Dacă Passe: Următoarea Passe2:' libère la mémoire Obj = Nimic Rep = Nimic sRep = Nimic sR2 = Sub Private Sub Button1_Click (ByVal expeditor ca System.Object, ByVal e ca System.EventArgs) Manere Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Dacă Cherche = "" Exit Sub LireRep (" ) Dacă Trouver "" Atunci Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Sfârșit Dacă clasa End Sub End