linguaggio di programmazione Microsoft Visual Basic contiene le funzioni che ti danno la possibilità di utilizzare le informazioni di sistema di Windows . Esso include i metodi per recuperare le informazioni sui file e le directory . Il Metodo " My.Computer.FileSystem.GetFiles " restituisce un insieme di stringhe che rappresentano i nomi di percorso per i file . Utilizzando il parametro " GetFiles " nel programma Visual Basic , è possibile definire il nome e il percorso della directory per lavorare con i dischi ei file in applicazioni utente . Istruzioni
1

Fare clic su " Start" di Windows , quindi fare clic su "Microsoft Visual Studio ".
2

Fare clic su " File ". Selezionare "Apri " e quindi fare doppio clic sul programma di Visual Basic in cui si desidera aggiungere la funzione di ricerca file.
3

Aggiungere il seguente codice dopo la " Shared Function Public " linea :

FindFiles funzione ( percorso As String , SearchStr As String , Stati

_

FileCount As Integer , DirCount As Integer ) per

Dim FileName As String ' variabile Nome file .

Dim DirName As String ' nome della sottodirectory .

Dim dirnames ( ) As String ' Buffer per nome

voci di directory .

Dim NDIR As Integer ' Numero di directory in

questo percorso .

Dim i As Integer' contatore per -loop .

On Error GoTo sysFileERR

destra (percorso , 1) < > " \\ " Allora path = percorso & " \\ "

' Ricerca per le sottodirectory .

NDIR = 0

ReDim dirnames ( NDIR ) per

DirName = Dir (percorso , vbDirectory O vbHidden O

vbArchive O vbReadOnly _

O vbSystem ) ' Anche se nascosto , e così via .
< p > Do While Len ( DirName ) > 0

'Ignora le directory corrente e connessi.

( DirName < > " . ") e ( DirName < > " .. " ) Poi

'Controlla directory con confronto bit per bit .

getAttr (percorso & DirName ) e vbDirectory

Poi

dirnames ( NDIR ) = DirName

DirCount = DirCount + 1

NDIR = NDIR + 1

ReDim Preserve dirnames ( NDIR ) per

End If '
< p> directory

sysFileERRCont : .

End If

DirName = Dir () ' . Get prossimo sottodirectory

loop

' ricerca attraverso questa directory .

FileName = Dir (percorso & SearchStr , vbNormal O

vbHidden O vbSystem _

O vbReadOnly O vbArchive ) per

Mentre Len ( FileName ) < > 0

FindFiles = FindFiles + FileLen (percorso e nome file ) per

FileCount = FileCount + 1

FileName = Dir ( ) ' Get file successivo .

Wend

Ogni Text1.Text As String In

My.Computer.FileSystem.GetFiles ( _

My.Computer.FileSystem.SpecialDirectories . MyDocuments , _

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

Listbox.Items.Add ( Text1.Text ) per

Successivo
< p > Dim SearchPath As String , findstr As String Dim

FileSize As Long Dim

NumFiles As Integer , NumDirs As Integer

findstr = Text1.Text

File = FindFiles ( SearchPath , findstr , NumFiles ,

NumDirs ) per

Text3.Text = NumFiles & " file trovati in" & NumDirs

+ 1 & _

"Directories"
4

Fare clic su " File " e poi "Salva" per aggiungere la funzione di ricerca file per il vostro programma .