Microsoft langage de programmation Visual Basic contient les fonctions qui vous donnent la possibilité d'utiliser des informations sur le système Windows. Il comprend les méthodes pour récupérer des informations sur les fichiers et répertoires. La méthode " My.Computer.FileSystem.GetFiles " renvoie un ensemble de chaînes représentant les noms de chemin des fichiers . En utilisant le paramètre " GetFiles " dans votre programme Visual Basic , vous pouvez définir le nom et le chemin du répertoire de travail avec les disques et fichiers dans les applications de l'utilisateur. 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

Ajoutez le code suivant après la «Fonction publique partagée " ligne :

FindFiles de fonction ( chemin As String , searchStr As String , AB

_

FileCount As Integer , DirCount As Integer )

FileName As String Dim «variable de nom de fichier .

DirName As String ' Nom sous-répertoire.

dirnames Dim () As Buffer String' pour nom Le

entrées d'annuaire.

Dim NDIR As Integer ' Nombre de répertoires dans

cette voie.

i As Integer' compteur pour la boucle .

On Error GoTo sysFileERR

droite (path, 1) <> "\\" Alors path = chemin & "\\"

'Rechercher sous-répertoires.

NDIR = 0

ReDim dirnames ( NDIR)

DirName = Dir (path, vbDirectory Ou vbHidden Ou

vbArchive Ou vbReadOnly _

Ou vbSystem ) «Même s'il est caché , et ainsi de suite .
< p> Do While Len ( DirName ) > 0

« Ignorer les répertoires actuels et connexes.

( DirName <>" . " ) et ( DirName <>" .. " ) puis vérifiez

' pour le répertoire avec une comparaison au niveau du bit .

Si getAttr (chemin & DirName ) et vbDirectory

Puis

dirnames (NDIR ) = DirName

DirCount = DirCount + 1

NDIR = NDIR + 1

ReDim Preserve dirnames (NDIR )

End If '
< p> répertoires

sysFileERRCont : .

End If

DirName = Dir ( ) ' . Get Next répertoire

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 et nom de fichier)

FileCount = FileCount + 1

filename = Dir () ' Get Next fichier .

Wend

Chaque Text1.Text As String

My.Computer.FileSystem.GetFiles ( _

My.Computer.FileSystem.SpecialDirectories . MyDocuments , _

FileIO.SearchOption.SearchAllSubDirectories , "*. dll" )

Listbox.Items.Add ( Text1.Text )

Suivant
< p > Dim SearchPath As String , fINDSTR As String

TailleFichier As long

nbFichiers As Integer, numdirs As Integer

fINDSTR = Text1.Text

Poids du fichier: FindFiles ( SearchPath , fINDSTR , nbFichiers ,

numdirs )

Text3.Text = nbFichiers et " les fichiers trouvés dans " & numdirs

+ 1 & _

" Annuaires "
4

Cliquez sur " fichier" puis "Enregistrer" pour ajouter la fonction de recherche de fichiers sur votre programme.