VB.Net - Знайти файл на жорсткому диску

Ця демонстрація дозволяє шукати на жорсткому диску (не знаючи шляху).

На формі, TextBox (TextBox1) і етикетці (Label1)
Скопіюйте / вставте код у модуль форми.

Код

 Громадський клас Form1 Dim Touver As String Dim Cherche As String Sub LireRep (ByVal Chem As String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle як рядок Дим NbsR як ціле, S як рядок Chem = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "", "", "" - "------- au cas ou ce serait dans le DD DD Trouver = Dir (Chem & Cherche), якщо" "налагоджувач потім Trouver = Chem & Trouver: Exit Sub '-------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Якщо Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ ", то GoTo Passe2 sRep = Rep.subfolders для кожного sRp в sRep S = UCase (sRp.Name ) 'sortir de la boucle précédante si fichier est trouver Якщо Trouver "" Тоді Exit For' ------------ Elimine les répertoires système Якщо Microsoft.VisualBasic.Left (S, 1) = "$ "Або S =" WINDOWS "Або sRp.Attributes = 19 _ Або Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "Або Microsoft.VisualBasic.Left (S, 7) =" ПРОГРАМА "Або Microsoft.VisualBasic.Left (S, 4) = "USER" _ Або Microsoft.VisualB asic.Left (S, 6) = "ДРАЙВЕР" Або Microsoft.VisualBasic.Left (S, 5) = "ІНСТРУМЕНТИ" Потім GoTo Passe On Error Поновити далі sR2 = sRp.subfolders NbsR = sR2.Count Якщо Err.Number 0 Тоді GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "", "", "") Trouver = Dir (sCle & Cherche) Якщо вибір "" потім Trouver = sCle & Trouver: Exit Sub On Помилка GoTo 0 Якщо NbsR> 0 Тоді 'lecture récursive des sous-réperto! Res LireRep (sCle) Кінець Якщо Passe: Next Passe2:' libère la mémoire Obj = Nothing Rep = Нічого sRep = Нічого sR2 = Нічого не закінчується Суб Приватний Sub Button1_Click (ByVal відправником як System.Object, ByVal e як System.EventArgs) Ручки Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Якщо Cherche = "" Тоді Вийти Sub LireRep ("c: \ t ) Тоді, якщо трубопровід "" Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Закінчити, якщо закінчити клас підпису