VB.Net - Pronađite datoteku na tvrdom disku

Ovaj demo omogućuje pretraživanje na tvrdom disku (bez poznavanja staze).

  • Na obrascu, tekstualni okvir (TextBox1) i oznaka (oznaka 1)
  • Kopirajte / zalijepite kôd u modul obrasca.

Kodirati

 Javna klasa Form1 Dimna poluga kao niz gusto kao niz nizova LireRep (ByVal Chem As String) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle kao niz Dim NbsR kao cijeli broj, S kao niz Chem = Chem & IIf (Microsoft.VisualBasic Pravo (Chem, 1) = "", "", "" - "------- au cas ou ce serait dans le DD Trouver = Dir (Chem & Cherche) Ako je upravljač" "zatim upravljač = Chem & Trouver: Exit Sub '-------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Ako Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "onda GoTo Passe2 sRep = Rep.subfolders za svaki sRp u sRep S = UCase (sRp.Name ) 'sortir de la boucle précédante si fichier est trouver Ako je Trouver "" Zatim Exit For' ------------ Elimine les répertoires système Ako Microsoft.VisualBasic.Left (S, 1) = "$ "Ili S =" WINDOWS "Ili sRp.Attributes = 19 _ Ili Microsoft.VisualBasic.Left (S, 6) =" SUSTAV "Ili Microsoft.VisualBasic.Left (S, 7) =" PROGRAM "ili Microsoft.VisualBasic.Left (S, 4) = "KORISNIK" _ Ili Microsoft.VisualB asic.Left (S, 6) = "DRIVER" ili Microsoft.VisualBasic.Left (S, 5) = "ALATI" Zatim GoTo Passe On Error Nastavi sR2 = sRp.subfolders NbsR = sR2.Count Ako Err.Number 0 Then GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) ", " ", " ") Trouver = Dir (sCle & Cherche) Ako je upravljač" "tada upravljač = sCle & Trouver: Exit Sub On Error GoTo 0 Ako je NbsR> 0 Tada 'predavanje récursive des sous-réperto! Res LireRep (sCle) Završi ako Passe: Next Passe2:' libère la mémoire Obj = Ništa Rep = Ništa sRep = Ništa sR2 = Ništa ne Sub Privatni Sub Button1_Click (ByVal pošiljatelja kao System.Object, ByVal e kao System.EventArgs) Ručke Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Ako Cherche = "" Zatim izađite Sub LireRep ("c: \ t ) Ako je tada upravljač "" Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Završi ako End End End Class 

preuzimanje datoteka

Preuzmi datoteku

Prethodni Članak Sljedeći Članak

Top Savjeta