VB.Net - Hitta en fil på en hårddisk

Med denna demo kan du söka på en hårddisk (utan att känna till sökvägen).

På en blankett, en TextBox (TextBox1) och en etikett (Etikett1)
Kopiera / klistra in koden i modulen i formuläret.

Koda

 Public Class Form1 Dim Trouver Som String Dim Cherche Som String Sub LireRep (ByVal Chem As String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle Som String Dim NbsR Som Integer, S Som String Chem = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "\", "", "\") ------- au cas ou ce serait dans le DD Trouver = Dir (Chem & Cherche) Om Trouver "" Då Trouver = Chem & Trouver: Exit Sub '-------------------------------------- Obj = SkapaObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Om Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Då GoTo Passe2 sRep = Rep.subfolders För varje sRp I sRep S = UCase (sRp.Name ) "Om du vill ha mer information om det, om du vill" "kommer du att lämna" ------------ Elimine les répertoires système Om Microsoft.VisualBasic.Left (S, 1) = "$ "Eller S =" WINDOWS "eller sRp.Attributes = 19 _ eller Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "eller Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "eller Microsoft.VisualBasic.Left (S, 4) = "USER" _ Eller Microsoft.VisualB asic.Left (S, 6) = "DRIVER" eller Microsoft.VisualBasic.Left (S, 5) = "VERKTYG", sedan gå till fel fortsätt Nästa sR2 = sRp.subfolders NbsR = sR2.Count Om Err.Number 0 Then GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "\", "\", "") Trouver = Dir (sCle & Cherche) Om Trouver "" Då Trouver = sCle & Trouver: Avsluta del på fel Gå till 0 Om NbsR> 0 Då föreläsas récursive des sous-reperto! Res LireRep (sCle) Avsluta Om Passe: Nästa Passe2: 'libère la mémoire Obj = Inget Rep = Inget sRep = Inget sR2 = Inget Slut Sub Private Sub Button1_Click (ByVal avsändare Som System.Object, ByVal e As System.EventArgs) Hanterar Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Om Cherche = "" Avsluta Sub LireRep ("c: \" ) Om Trouver "" Då Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Avsluta om slutänden slutklass