VB.Net - leidke fail kõvakettalt

See demo võimaldab teil otsida kõvakettalt (teed teadmata).

  • Vormil, TextBox (TextBox1) ja silt (Label1)
  • Kopeeri / kleepige koodi vormi moodulisse.

Kood

 Avaliku klassi vorm1 Dim Trouver kui stringi Dim Cherche stringi alamliigina (ByVal Chem kui string) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle stringina Dim NbsR kui tervikuna, S nagu stringina Chem = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "", "", "") "------- au casuu serait dans le DD Trouver = Dir (Chem & Cherche) Kui Trouver" "siis Trouver = Chem & Trouver: Välju alammenüüst -------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Kui Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Siis GoTo Passe2 sRep = Rep.subfolders iga sRp jaoks sRep S = UCase (sRp.Name ) '' '' '' '' '', siis "Exit For '------------ Elimine les répertoires système Kui Microsoft.VisualBasic.Left (S, 1) =" $ "Või S =" WINDOWS "või sRp.Attributes = 19 _ või Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "või Microsoft.VisualBasic.Left (S, 7) =" PROGRAMM "või Microsoft.VisualBasic.Left (S, 4) = "KASUTAJA" _ või Microsoft.VisualB asic.Left (S, 6) = "DRIVER" või Microsoft.VisualBasic.Left (S, 5) = "TOOLS" Siis GoTo Passe On Error Jätka Järgmine sR2 = sRp.subfolders NbsR = sR2.Count If Err.Number 0 Seejärel GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) ", " ", " ") Trouver = Dir (sCle & Cherche) Kui Trouver" "siis Trouver = sCle & Trouver: Exit Sub On Error GoTo 0 Kui NbsR> 0 Siis "loeng récursive des sous-réperto! Res LireRep (sCle) End Kui Passe: Järgmine Passe2: 'libère la mémoire Obj = Mitte midagi Rep = Mitte midagi sRep = Midagi sR2 = Midagi lõppu Sub Private Sub Button1_Click (ByVal saatja nagu System.Object, ByVal e System.EventArgs) Käepidemed Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Kui Cherche = "" Seejärel välju Sub LireRep ("c:" ) Kui Trouver "" siis Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Lõpeta lõpp-lõppklass 

Lae alla

Laadi alla fail

Eelmine Artikkel Järgmine Artikkel

Top Näpunäited