Microsoft langage de programmation Visual Basic contient les fonctions qui vous donnent la possibilité d`utiliser les informations du système Windows. Il comprend les méthodes pour récupérer des informations sur les fichiers et répertoires. Le "My.Computer.FileSystem.GetFiles" Méthode renvoie un ensemble de chaînes représentant les noms de chemin pour les fichiers. En utilisant le paramètre "GetFiles" dans votre programme Visual Basic, vous pouvez définir le nom et le chemin du répertoire pour travailler avec les lecteurs et les fichiers dans les applications utilisateur.
Cliquez sur "Démarrer" de Windows, puis cliquez sur "Microsoft Visual Studio."
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.
Ajoutez le code suivant après la ligne "Fonction publique partagée":
FindFiles de fonction (path As String, SearchStr As String,_
FileCount As Integer, DirCount As Integer)Dim FileName Comme variable Nom du fichier String `.
Dim DirName As String `sous-répertoire Nom.
dirnames Dim () As Buffer String `pour le nom du répertoire
entrées.
Dim NDIR As Integer `Nombre de répertoiresce chemin.
Dim i As Integer `counter Pour boucle.On Error GoTo sysFileERR
Si le bouton droit (chemin, 1) <> "" Alors path = ""
`Chercher les sous-répertoires.
NDIR = 0
dirnames ReDim (NDIR)
DirName = Dir (path, 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 connexes.
Si (DirName <> ".") Et (DirName <> "..") Alors
`Vérifiez répertoire avec la comparaison de bits.
Si GetAttr (chemin DirName) Et vbDirectory
alors
dirnames (NDIR) = DirNameDirCount DirCount = + 1
NDIR = NDIR + 1
ReDim Preserve dirnames (NDIR)
Fin si `
répertoires.
sysFileERRCont:Fin si
DirName = Dir () `Obtenir sous-répertoire suivant.
Boucle
«Recherchez dans ce répertoire.
FileName = Dir (chemin SearchStr, vbNormal Or
vbHidden Ou vbSystem _
Ou vbReadOnly Ou vbArchive)Alors que Len (FileName) <> 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)
Prochain
Dim SearchPath As String, FINDSTR As StringDim FileSize As Long
NumFiles Dim As Integer, NumDirs As Integer
FINDSTR = Text1.Text
FileSize = FindFiles (SearchPath, FINDSTR, numFiles,
NumDirs)
Text3.Text = numFiles "Fichiers trouvé dans" NumDirs1 _
"Annuaires"
Cliquez sur "Fichier" puis "Enregistrer" pour ajouter la fonction de recherche de fichiers à votre programme.
