VB.Net - Etsi tiedosto kiintolevyltä

Tämän demon avulla voit etsiä kiintolevyltä (tietämättä polkua).

Lomakkeella TextBox (TextBox1) ja tarra (Label1)
Kopioi / liitä koodi lomakkeen moduuliin.

Koodi

 Julkisen luokan muoto1 Dim Trouverin merkkijono Dim Cherche merkkijonoina LireRep (ByVal Chem kuten merkkijono) Dim Rep, sRp, Obj, sRep, sR2 Dim sCle merkkijonoina Dim NbsR Integer, S Kuten String Chem = Chem & IIf (Microsoft.VisualBasic .Right (Chem, 1) = "", "", "") "------- au casuu serait dans le DD Trouver = Dir (Chem & Cherche) Jos Trouver" "sitten Trouver = Chem & Trouver: Poistu aliverkosta -------------------------------------- Obj = CreateObject (" Scripting.FileSystemObject ") Rep = Obj.Getfolder (Chem) Jos Microsoft.VisualBasic.Left (Rep.Name, 1) =" $ "Sitten GoTo Passe2 sRep = Rep.subfolders Jokaiselle sRp: lle SRep S = UCase (sRp.Name ) 'lajittele de la boucle précédante si le fichier est trouver If Trouver' "Sitten Exit For" ------------ Elimine les répertoires système Jos Microsoft.VisualBasic.Left (S, 1) = "$ "Tai S =" WINDOWS "tai sRp.Attributes = 19 _ tai Microsoft.VisualBasic.Left (S, 6) =" SYSTEM "tai Microsoft.VisualBasic.Left (S, 7) =" OHJELMA "tai Microsoft.VisualBasic.Left (S, 4) = "KÄYTTÄJÄ" _ Tai Microsoft.VisualB asic.Left (S, 6) = "DRIVER" tai Microsoft.VisualBasic.Left (S, 5) = "TOOLS" Sitten GoTo Passe On Error Jatka Seuraava sR2 = sRp.subfolders NbsR = sR2.Count If Err.Number 0 Sitten GoTo Passe sCle = sRp.Path & IIf (Microsoft.VisualBasic.Right (sRp.Path, 1) ", " ", " ") Trouver = Dir (sCle & Cherche) Jos Trouver" "sitten Trouver = sCle & Trouver: Exit Sub On Error GoTo 0 Jos NbsR> 0 Sitten 'luento récursive des sous-réperto! Res LireRep (sCle) End Jos Passe: Seuraava Passe2:' libère la mémoire Obj = Ei mitään Rep = Ei mitään sRep = Ei mitään sR2 = Ei mitään loppua Sub Private Sub Button1_Click (ByVal-lähettäjä kuten System.Object, ByVal e System.EventArgs) Käsittelee Button1.Click Trouver = "" Cherche = Trim (TextBox1.Text) Jos Cherche = "" Sitten Poistu Sub LireRep ("c: \ t ) Jos Trouver "" sitten Label1.Text = Trouver Else Label1.Text = "Fichier non trouvé" Lopeta, jos lopetat loppuun