Microsoft Visual Basic -Programmiersprache enthält die Funktionen , die Ihnen die Möglichkeit, Windows-System Informationen zu nutzen. Es beinhaltet die Methoden zum Abrufen von Informationen über Dateien und Verzeichnisse . Die " My.Computer.FileSystem.GetFiles " -Methode gibt eine Reihe von Strings, die die Pfadnamen für die Dateien darstellen . Durch die Verwendung des " GetFiles "-Parameter in Visual Basic-Programms , können Sie den Namen und Pfad des Verzeichnisses für die Arbeit mit den Laufwerken und Dateien im User-Anwendungen zu definieren. Anleitung
1
Klicken Sie auf " Start" in Windows , und klicken Sie dann auf "Microsoft Visual Studio. "
2
Klicken Sie auf " Datei ". Wählen Sie "Öffnen " und dann auf Visual Basic-Programm , in dem Sie die Datei Suchfunktion hinzufügen doppelklicken.
3
Fügen Sie den folgenden Code nach dem " Public Shared Function" line:
Funktion FindFiles (Pfad As String , SearchStr As String , _
FileCount As Integer , DirCount As Integer ) Dim FileName
As String ' Dateiname variabel.
Dim DirName As String' Unterverzeichnisname .
Dim dirNames () As String 'Puffer für Verzeichnis-Namen
Einträge .
Dim NDIR As Integer ' Anzahl der Verzeichnisse in
dieser Weg .
Dim i As Integer' For - Schleife Zähler .
On Error GoTo sysFileERR
Right ( Pfad , 1 ) <> "\\" Dann path = Pfad & "\\"
'Search for Unterverzeichnisse.
NDIR = 0
ReDim dirNames ( NDIR)
DirName = Dir (Pfad , vbDirectory Oder vbHidden oder in
vbArchive Oder vbReadOnly _
Oder vbSystem ) " Auch wenn versteckt, und so weiter.
< p> Do While Len ( DirName ) > 0
die aktuellen Verzeichnisse und verwandte ignorieren ' .
( DirName <> " . ") und ( DirName <> " .. ") Then
'Check für Verzeichnis mit bitweisen Vergleich .
Wenn GetAttr (Pfad & DirName ) und vbDirectory
Dann
dirNames (NDIR ) = DirName
DirCount = DirCount + 1
NDIR = NDIR + 1 ReDim Preserve
dirNames (NDIR )
End If '
< p> Verzeichnisse
sysFileERRCont : .
End If
DirName = Dir () ' . Holen nächsten Unterverzeichnis
Schleife
' Suchen Sie in diesem Verzeichnis .
FileName = Dir (Pfad & SearchStr , vbNormal oder in
vbHidden Oder vbSystem _
Oder vbReadOnly Oder vbArchive )
Während Len ( FileName ) <> 0
FindFiles = FindFiles + FileLen (Pfad & Dateiname )
FileCount = FileCount + 1
FileName = Dir () 'Get nächste Datei .
Wend
For Each Text1.Text As String In
My.Computer.FileSystem.GetFiles (_
My.Computer.FileSystem.SpecialDirectories . MyDocuments , _
FileIO.SearchOption.SearchAllSubDirectories , "*. dll" )
Listbox.Items.Add ( Text1.Text )
Weiter
< p > 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 & "Dateien gefunden in" & NumDirs
+ 1 & _
"Verzeichnisse"
4
Klicken Sie auf " Datei ", gefolgt von "Save" , um die Datei Suchfunktion in Ihr Programm einfügen .
