Comment rechercher un fichier en vb

Instructions

1. Cliquez sur "Démarrer" de Windows, puis cliquez sur "Microsoft Visual Studio."

2. Cliquez sur "Fichier". Sélectionnez "Ouvrir", puis double-cliquez sur le programme Visual Basic dans lequel vous souhaitez ajouter la fonction de recherche de fichiers.

3. Ajouter le code suivant après la ligne "Fonction publique partagée":

    FindFiles de fonction (chemin As String, SearchStr As String, 

   _

    FileCount As Integer, DirCount As Integer)
   Dim nom de fichier comme variable de nom de fichier String '.
   Dim DirName As String 'sous-répertoire Nom.
   Dirnames Dim () comme tampon String 'pour le nom du répertoire 

   entrées.

   Dim NDIR As Integer 'Nombre de répertoires 

   ce chemin.

   Dim i As Integer 'counter Pour en boucle.
   On Error GoTo sysFileERR
   Si droite (chemin, 1) <> »« Alors path = ""
   «Rechercher des sous-répertoires.
   NDIR = 0
   Dirnames ReDim (NDIR)
   DirName = Dir (chemin, vbDirectory Ou vbHidden Ou 

   vbArchive Ou vbReadOnly _

   
   
   
   
   

    Ou vbSystem) «Même si caché, et ainsi de suite.
   Do While Len (DirName)> 0
   «Ignorer les répertoires actuels et liés.
   Si (DirName <> ".") Et (DirName <> "..") Alors
   «Vérifier pour le répertoire avec une comparaison au niveau du bit.
   Si GetAttr (chemin DirName) Et vbDirectory 

   alors

    dirnames (NDIR) = DirName
   DirCount DirCount = + 1
   NDIR = NDIR + 1
   ReDim Preserve dirnames (NDIR)
   Fin si ' 

   répertoires.

    sysFileERRCont:
   Fin si
   DirName = Dir () 'Obtenir répertoire suivant.
   Boucle
   «Recherchez dans ce répertoire.
   Filename = Dir (chemin SearchStr, vbNormal Ou 

   vbHidden Ou vbSystem _

   Ou vbReadOnly ou vbArchive)
   
   
   Alors que Len (nom de fichier) <> 0
   FindFiles = FindFiles + FileLen (chemin Nom de fichier)
   FileCount = FileCount + 1
   Filename = Dir () 'Obtenir fichier suivant.
   Wend

   Pour chaque Text1.Text As String Dans

   My.Computer.FileSystem.GetFiles (_

   My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
   FileIO.SearchOption.SearchAllSubDirectories, "* .dll")
   Listbox.Items.Add (Text1.Text)

   Suivant

   Dim SearchPath As String, FINDSTR As String
   Dim FileSize As Long
   NumFiles Dim As Integer, NumDirs As Integer
   FINDSTR = Text1.Text
   FileSize = FindFiles (SearchPath, FINDSTR, numFiles, 

   NumDirs)

   Text3.Text = numFiles "Fichiers trouvés dans" NumDirs 

   • 1 _

      "Directories"

4. Cliquez sur "Fichier" puis "Enregistrer" pour ajouter la fonction de recherche de fichier à votre programme.