Linguaggio di programmazione Microsoft Visual Basic contiene le funzioni che ti danno la possibilità di utilizzare informazioni di sistema di Windows. Esso comprende i metodi per il recupero di informazioni su file e directory. Il metodo "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 le unità e i file delle applicazioni utente.
Istruzioni
1
Fare clic su "Start" in Windows e 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 di file.
3
Aggiungere il seguente codice dopo la riga "Public Shared Function":
Function FindFiles(path As String, SearchStr As String,
_
FileCount As Integer, DirCount As Integer)
Dim FileName As String ' Filename variable.
Dim DirName As String ' SubDirectory Name.
Dim dirNames() As String ' Buffer for directory name
voci.
Dim nDir As Integer ' Number of directories in
Questo percorso.
Dim i As Integer ' For-loop counter.
On Error GoTo sysFileERR
If Right(path, 1) <> "\" Then path = path & "\"
' Search for subdirectories.
nDir = 0
ReDim dirNames(nDir)
DirName = Dir(path, vbDirectory Or vbHidden Or
vbArchive o vbReadOnly _
Or vbSystem) ' Even if hidden, and so on.
Do While Len(DirName) > 0
' Ignore the current and related directories.
If (DirName <> ".") And (DirName <> "..") Then
' Check for directory with bitwise comparison.
If GetAttr(path & DirName) And vbDirectory
Quindi
dirNames(nDir) = DirName
DirCount = DirCount + 1
nDir = nDir + 1
ReDim Preserve dirNames(nDir)
End If '
Directory.
sysFileERRCont:
End If
DirName = Dir() ' Get next subdirectory.
Loop
' Search through this directory.
FileName = Dir(path & SearchStr, vbNormal Or
vbHidden o vbSystem _
Or vbReadOnly Or vbArchive)
While Len(FileName) <> 0
FindFiles = FindFiles + FileLen(path & FileName)
FileCount = FileCount + 1
FileName = Dir() ' Get next file.
Wend
Per ogni Text1. Text As String In
GetFiles (_
My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
FileIO.SearchOption.SearchAllSubDirectories, "*.dll")
Listbox.Items.Add(Text1.Text)
Successivo
Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer
FindStr = Text1.Text
FileSize = FindFiles(SearchPath, FindStr, NumFiles,
NumDirs)
Text3.Text = NumFiles & " Files found in " & NumDirs
1 & _
" Directories"
4
Fare clic su "File", quindi "Salva" per aggiungere la funzione di ricerca di file per il programma.