VB.Net - Sabit diskteki bir dosyayı bulun

Bu demo, bir sabit sürücüde arama yapmanıza izin verir (yolu bilmeden).

• Bir formda, bir TextBox (TextBox1) ve bir etiket (Label1)
• Form modülündeki kodu kopyala / yapıştır.

kod

 Genel Sınıf Form1 Dize Kalabalık Olarak Dim Troche Dize Kalabalık Alt LireRep (Dize Olarak ByVal Chem) Dize Olarak Rep, sRp, Obj, sRep, sR2 Dize Olarak Dim SCle Dayı Olarak Dim NbsR, Dize Chem olarak S = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "\", "", "\") '------- otomatik olarak dans edersiniz DD Trouver = Dir (Chem & Cherche) Trouver ise "" Sonra Trouver = Chem & Trouver: Alttan Çık '---------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Olursa Sonra GoTo Passe2 sRep = sRep'teki Her sRp için Rep.subfolders S = UCase (sRp.Name ) 'troulle â € ir sort f sort si si Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Trouver Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Tro Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft Microsoft "Veya S =" WINDOWS "veya sRp.Attributes = 19 _ Veya Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "Veya Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "veya Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "veya Microsoft.VisualBasic.Left (S, 4) = "KULLANICI" _ Veya Microsoft.VisualB asic.Left (S, 6) = "SÜRÜCÜ" veya Microsoft.VisualBasic.Left (S, 5) = "ARAÇ" "Sonra Hata Sırasında Devam Etme Sırasında Devam Etme Sıradaki sR2 = sRp.subfolders NbsR = sR2.Count Go to Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) "\", "\", "") Trouver = Dir (sCle & Cherche) Trouver "" Sonra Trouver = sCle & Trouver: Ex On Sub On Error GoTo 0 Eğer NbsR> 0 ise Ardından 'ders anlatımını tamamla. Sonu Passe2:' librere la mémoire Obj = Hiçbir şey yok = Bir sonraki Passe2: 'libère la mémoire Obj = Nothing Rep = Nothing sR2 = Nothing sR2 = Nothing End Alt Özel Alt Button1_Click (System.Object, ByVal e System.EventArgs) Olarak ByVal gönderen, Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) işlevini kullanır. Cherche = "" ise, o zaman Sub LireRep ("c: \" ) Trouver "" Sonra Label1.Text = Diğer Trouver Label1.Text = "Fichier non trouvé" Bitiş Eğer Bitiş Alt Bitiş Sınıfı Varsa 

İndir

Dosyayı indir