VB.Net - Cari fail pada cakera keras

Demo ini membolehkan anda mencari pada cakera keras (tanpa mengetahui laluan).

Dalam bentuk, TextBox (TextBox1) dan label (Label1)
Salin / tampal kod dalam modul borang.

Kod

 Kelas Awam Form1 Dim Trouver Sebagai String Dim Cherche Sebagai String Sub LireRep (ByVal Chem As String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle As String Dim NbsR As Integer, S As String Chem = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "\", "", "\") '------- au cas ou ce serait dans le DD Trouver = Dir (Chem & Cherche) If Trouver " Chem & Trouver: Keluar Sub '-------------------------------------- Obj = CreateObject (" ======== Kemudian GoTo Passe2 sRep = Rep.subfolders Untuk Setiap sRp Dalam 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 = SULIT (S, 6) = "DRIVER" Atau Microsoft.VisualBasic.Left (S, 5) = "TOOLS" Kemudian GoTo Passe On Error Resume Next sR2 = sRp.subfolders NbsR = sR2.Count If Err.Number 0 Then GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "\", "\", "") Trouver = Dir (sCle & Cherche) Trouver: Keluar Sub On Ralat GoTo 0 Jika NbsR> 0 Kemudian 'lecture récursive des sous-réperto! Res LireRep (sCle) Akhir Jika Passe: Next Passe2:' libère la mémoire Obj = Tiada Rep = Tidak ada sRep = Tidak ada sR2 = Sub Private Sub Button1_Click (Pengirim ByVal Sebagai System.Object, ByVal e As System.EventArgs) Mengendalikan Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Jika Cherche = "" Kemudian Keluar Sub LireRep ("c: \" ) Jika Trouver "" Kemudian Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Akhir Jika Akhir Sub End Kelas