|
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
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.
|
