Microsoft Visual Basic programmeringssprog indeholder de funktioner , der giver dig mulighed for at bruge Windows-system information. Det omfatter de metoder til at hente oplysninger om filer og mapper. Den " My.Computer.FileSystem.GetFiles " Method returnerer et sæt strenge, der repræsenterer stinavne for filerne . Ved at bruge " GetFiles " parameter i din Visual Basic -program , kan du definere navnet og stien på den mappe for at arbejde med de drev og filer i bruger applikationer . Instruktioner
1

Klik på " Start" i Windows , og klik derefter på "Microsoft Visual Studio ".
2

Klik på "File ". Vælg "Åbn ", og dobbeltklik derefter på Visual Basic program, hvor du ønsker at tilføje filen søgefunktionen.
3

Tilføj følgende kode efter "Public Shared Function" line :

Funktion FindFiles (sti As String , SearchStr As String , salg

_

FileCount As Integer , DirCount As Integer )

Dim FileName As String 'Filnavn variabel.

Dim dirname As String ' undermappe navn .

Dim dirNames () As String ' Buffer til mappenavn

poster.

Dim NDIR As Integer 'Antal mapper

denne vej.

Dim i As Integer ' for - loop tæller.

Fejl GoTo sysFileERR
p Hvis Right (sti , 1 ) < > "\\ " Så path = path & " \\ "

' Søg efter undermapper .

NDIR = 0

ReDim dirNames ( NDIR )

dirname = Dir (sti , vbDirectory Or vbHidden Eller

vbArchive Eller vbReadOnly _

Eller vbSystem ) " Selv om skjult , og så videre.
< p> Do While Len ( dirname ) > 0

' Ignorer den aktuelle og relaterede mapper.
p Hvis ( dirname < > ".") og ( dirname < > " .. ") Så

'Tjek for mappe med bitvis sammenligning.
p Hvis GetAttr (sti & dirname ) og vbDirectory

Så

dirNames (NDIR ) = dirname

DirCount = DirCount + 1

NDIR = NDIR + 1

ReDim Preserve dirNames (NDIR )

End If '
< p> mapper

sysFileERRCont : .

End If

dirname = Dir ( ) ' . Get næste undermappe

Loop

' Søg gennem denne mappe.

FileName = Dir (sti & SearchStr , vbNormal Or

vbHidden Or vbSystem _

Eller vbReadOnly Or vbArchive )

Len ( FileName ) < > 0

FindFiles = FindFiles + FileLen (sti & filename)

FileCount = FileCount + 1

FileName = Dir () 'Get næste fil .

Wend

For Each Text1.Text As String I Málaga

My.Computer.FileSystem.GetFiles ( _

My.Computer.FileSystem.SpecialDirectories . MyDocuments , _

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

Listbox.Items.Add ( Text1.Text )

Næste
< p > Dim SearchPath As String , findstr As String

Dim FileSize så længe

Dim NumFiles As Integer , NumDirs As Integer

findstr = Text1.Text

FileSize = FindFiles ( SearchPath , findstr , NumFiles , brugte

NumDirs )

Text3.Text = NumFiles & " filer fundet i " & NumDirs

+ 1 & _

" Directories "
4

Klik på "File " efterfulgt af " Save" for at tilføje filen søgefunktion til dit program .