VB.Net - Найти файл на жестком диске

Эта демонстрация позволяет вам искать на жестком диске (не зная пути).

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

Код

 Открытый класс Form1 Dim Trouver в виде строки Dim Cherche в виде строки Sub LireRep (ByVal Chem As String) Dim Rep, sRp, Obj, sRep, sR2 Dim Scele в виде строки Dim NbsR в виде целого числа, S в виде строки Chem = Chem & IIf (Microsoft.VisualBasic) .Right (Chem, 1) = "\", "", "\") '------- au cas ou ce serait dans le DD Trouver = Dir (Chem & Cherche) If Trouver "" Тогда 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 s s le le fichier Est Trouver "" Тогда выходите за "------------ Elimine Les Répertoires System Если Microsoft.VisualBasic.Left (S, 1) =" $ "Или S =" WINDOWS "Или sRp.Attributes = 19 _ Или Microsoft.VisualBasic.Left (S, 6) =" СИСТЕМА "или Microsoft.VisualBasic.Left (S, 7) =" ПРОГРАММА "или Microsoft.VisualBasic.Left (S, 4) = "ПОЛЬЗОВАТЕЛЬ" _ Или Microsoft.VisualB asic.Left (S, 6) = "DRIVER" или Microsoft.VisualBasic.Left (S, 5) = "TOOLS", затем GoTo Passe On Ошибка Возобновить Далее sR2 = sRp.subfolders NbsR = sR2.Count If Err.Number 0 Тогда GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "\", "\", "") Trouver = Dir (sCle & Cherche) Если Trouver "" Тогда Trouver = sCle & Неприятность: Выход из Sub On Error GoTo 0 Если NbsR> 0 Тогда 'récursive des sous-réperto! Res LireRep (sCle) Конец If Passe: Следующий Passe2:' libère la mémoire Obj = Nothing Rep = Nothing sRep = Nothing sR2 = Nothing End Sub Private Sub Button1_Click (ByVal отправитель как System.Object, ByVal e как System.EventArgs) Обрабатывает Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Если Cherche = "" Затем выйдите из Sub LireRep ("c: \" ) If Trouver "" Тогда Label1.Text = Trouver Остальное Label1.Text = "Fichier non trouvé" End If End End End Класс