VB.Net - Nájsť súbor na pevnom disku

Toto demo vám umožňuje vyhľadávať na pevnom disku (bez znalosti cesty).

Na formulári, TextBox (TextBox1) a štítok (Label1)
Skopírujte / prilepte kód do modulu formulára.

kód

 Verejné triedy Form1 Dim Trouver ako reťazec Dim Cherche ako reťazec Sub LireRep (ByVal Chem As String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle ako String Dim NbsR ako celé číslo, S ako reťazec Chem = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "", "", "" ")" ------- au cas ou ce serait dans le DD Trouver = Dir (Chem & Cherche) Ak je Trouver "" Potom Trouver = Chem & Trouver: Koniec Sub '-------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Ak Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Potom GoTo Passe2 sRep = Rep.subfolders pre každý sRp V sRep S = UCase (sRp.Name ) 'sortir de la boucle précédante si le fichier est trouver Ak Trouver "" Potom Exit For "------------ Elimine les répertoires système Ak Microsoft.VisualBasic.Left (S, 1) =" $ "Alebo S =" WINDOWS "alebo sRp.Attributes = 19 _ alebo Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "alebo Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "alebo Microsoft.VisualBasic.Left (S, 4) = "USER" _ Alebo Microsoft.VisualB asic.Left (S, 6) = "DRIVER" alebo Microsoft.VisualBasic.Left (S, 5) = "NÁSTROJE" Potom GoTo Passe On Error Resume Nasledujúci sR2 = sRp.subfolders NbsR = sR2.Count Ak Err.Number 0 Potom GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "" ", " ", " ") Trouver = Dir (sCle & Cherche) Ak Trouver" "Potom Trouver = sCle & Trouver: Exit Sub On Error GoTo 0 Ak NbsR> 0 Potom 'prednáška récursive des sous-réperto! Res LireRep (sCle) Koniec If Passe: Next Passe2:' libère la mémoire Obj = Nič Rep = Nothing sRep = Nič sR2 = Nothing End Sub Private Sub Button1_Click (ByVal odosielateľ ako System.Object, ByVal e ako System.EventArgs) Spracováva Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Ak Cherche = "" Potom Exit Sub LireRep ("c:") ) Ak Trouver "" potom Label1.Text = Eliminovať problém Label1.Text = "Fichier non trouvé" Koniec Ak End End End Class