Microsoft linguaggio di programmazione Visual Basic contiene le funzioni che vi danno la possibilità di utilizzare le informazioni di sistema di Windows. Esso comprende i metodi per il recupero di informazioni sui file e directory. Il metodo "My.Computer.FileSystem.GetFiles" restituisce una serie di stringhe che rappresentano i nomi di percorso per i file. Usando il parametro "GetFiles" nel programma Visual Basic, è possibile definire il nome e il percorso della directory per lavorare con i dischi e file in applicazioni utente.

istruzione

1 Fai clic su "Start" in Windows, e quindi fare clic su "Microsoft Visual Studio."

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

3 Aggiungere il seguente codice dopo la riga "pubblica funzione condivisa":

Function FindFiles(path As String, SearchStr As String,

_

FileCount As Integer, DirCount As Integer)

Dim nome del file come variabile Nome String '.

Dim DirName As String 'nome di sottodirectory.

dirnames Dim () As String 'buffer per il nome della directory

inserimenti.

Dim nDir As Integer ' Number of directories in

questo percorso.

Dim i As Integer ' For-loop counter.

On Error GoTo sysFileERR

Se a destra (percorso, 1) & lt;> "\" Poi path = percorso & "\"

'CERCA sottodirectory.

NDIR = 0

dirnames ReDim (NDIR)

DirName = Dir (percorso, vbDirectory O vbHidden O

vbArchive O vbReadOnly _

Or vbSystem) ' Even if hidden, and so on.

Do While Len (DirName)> 0

'Ignora le directory corrente e connessi.

Se (DirName & lt;> ".") E (DirName & lt;> "..") Poi

'Verificare la directory con il confronto bit per bit.

Se GetAttr (percorso e DirName) E vbDirectory

Poi

dirNames(nDir) = DirName

DirCount = DirCount + 1

NDIR = NDIR + 1

ReDim Preserve dirnames (NDIR)

Finisci se '

le directory.

sysFileERRCont:

Finisci se

DirName = Dir () 'Get prossimo sottodirectory.

Ciclo continuo

'Ricerca tra questa directory.

FileName = Dir (percorso & searchStr, vbNormal Or

vbHidden O vbSystem _

Or vbReadOnly Or vbArchive)

Mentre Len (FileName) & lt;> 0

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

FileCount = FileCount + 1

FileName = Dir () 'Get file successivo.

Wend

Per ogni Text1.Text As String In

My.Computer.FileSystem.GetFiles (_

My.Computer.FileSystem.SpecialDirectories.MyDocuments, _

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

Listbox.Items.Add (Text1.Text)

Il prossimo

Dim SearchPath As String, FindStr As String

Dim FileSize As Long

NumFiles fiochi come Integer, NumDirs As Integer

Findstr = Text1.Text

FileSize = FindFiles (SearchPath, Findstr, NumFiles,

NumDirs)

Text3.Text = NumFiles & " Files found in " & NumDirs

1 & _

" Directories"

4 Fai clic su "File", seguito da "Salva" per aggiungere la funzione di ricerca di file al vostro programma.