VB.Net - Temukan file di hard disk

Demo ini memungkinkan Anda untuk mencari di hard drive (tanpa mengetahui jalannya).

Pada formulir, TextBox (TextBox1) dan label (Label1)
Salin / tempel kode dalam modul formulir.

Kode

 Bentuk Kelas Publik1 Dim Trouver Sebagai String Dim Cherche Sebagai String Sub LireRep (ByVal Chem As String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle Sebagai String Dim NbsR Sebagai Integer, S Sebagai String Chem = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "\", "", "\") '------- au cas ou ce serait dans le DD Trouver = Dir (Chem & Cherche) If Trouver "" Kemudian Trouver = Chem & Trouver: Keluar Sub '-------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Jika Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Lalu GoTo Passe2 sRep = Rep.subfolderers Untuk Setiap sRp Di sRep S = UCase (sRp.Name ) 'sortir de la boucle précédante si le fichier est trouver If Trouver "" Then Exit For' ------------ Elimine les répertoires système If Microsoft.VisualBasic.Left (S, 1) = "$ "Atau S =" WINDOWS "Atau sRp.Attributes = 19 _ Atau Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "Atau Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "Atau Microsoft.VisualBasic.Left (S, 4) = "USER" _ Atau Microsoft.VisualB asic.Left (S, 6) = "DRIVER" Atau Microsoft.VisualBasic.Left (S, 5) = "TOOLS" Kemudian GoTo Passe On Error Resume Selanjutnya sR2 = sRp.subfolderers NbsR = sR2.Count Jika Err.Number 0 Then GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "\", "\", "") Trouver = Dir (sCle & Cherche) Jika Trouver "" Lalu Trouver = sCle & Trouver: Exit Sub On Error GoTo 0 If NbsR> 0 Then 'ceramah récursive des sous-réperto! Res LireRep (sCle) End If Passe: Passe2 berikutnya:' libère la mémoire Obj = Tidak Ada Rep = Tidak adaRR = Tidak Ada AkhirRR = Tidak Ada Akhir Sub Pribadi Sub Tombol1_Klik (Pengirim ByVal Sebagai System.Object, ByVal e Sebagai Sistem.EventArgs) Menangani Tombol1.Klik Trouver = "" Cherche = Trim (TextBox1.Text) Jika Cherche = "" Lalu Keluar Sub LireRep ("c: \" ) Jika Trouver "" Kemudian Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" End Jika End Sub End Class