Microsoft Visual Basic programmeringsspråk inneholder funksjoner som gir deg muligheten til å bruke Windows system informasjon. Det omfatter metoder for å hente informasjon om filer og kataloger . Den " My.Computer.FileSystem.GetFiles " metoden returnerer et sett med strenger som representerer banenavn for filene . Ved å bruke " GetFiles " parameter i Visual Basic program , kan du definere navnet og banen til katalogen for å arbeide med stasjonene og filer i brukerprogrammer . Instruksjoner
en

Klikk "Start" i Windows , og klikk deretter på "Microsoft Visual Studio. "
2

Klikk på " File". Velg "Åpne ", og deretter dobbeltklikker du på Visual Basic program der du ønsker å legge til filen søkefunksjonen.
3

Legg til følgende kode etter " Public Delt Function" linje:

Funksjon FindFiles ( vei Som String, SearchStr As String , etter

_

FileCount As Integer , DirCount As Integer )

Dim FileName As String 'Filnavn variabel .

Dim dirname As String ' underkatalog navn .

Dim dirNames ( ) As String ' Buffer for katalognavn

oppføringer.

Dim NDIR As Integer 'Antall kataloger i

denne veien.

Dim i As Integer ' for- løkke teller.

On Error GoTo sysFileERR
p Hvis høyre (bane , 1) < > "\\ " Da path = path & " \\"

' Søk etter underkataloger .

NDIR = 0

ReDim dirNames ( NDIR )

dirname = Dir (bane , vbDirectory Eller vbHidden Eller

vbArchive Eller vbReadOnly _

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

' Ignorer nåværende og relaterte kataloger.
p Hvis ( dirname < > " . ") og ( dirname < > " .. ") Så

'Sjekk katalogen med bitvis sammenligning.
p Hvis GetAttr ( banen & dirname ) og vbDirectory

Så

dirNames ( NDIR ) = dirname

DirCount = DirCount + 1

NDIR = NDIR + 1

ReDim Preserve dirNames ( NDIR )

End If '
< p> kataloger

sysFileERRCont : .

End If

dirname = Dir () ' . Få neste undermappe

Loop

' Søk gjennom denne katalogen.

FileName = Dir ( banen & SearchStr , vbNormal Eller

vbHidden Eller vbSystem _

Eller vbReadOnly Eller vbArchive )

Mens Len ( FileName ) < > 0

FindFiles = FindFiles + FileLen ( banen & FileName )

FileCount = FileCount + 1

FileName = Dir () ' Få neste fil .

Wend

Hver Text1.Text As String I

My.Computer.FileSystem.GetFiles ( _

My.Computer.FileSystem.SpecialDirectories . MyDocuments , _

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

Listbox.Items.Add ( Text1.Text )

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

Dim FileSize Som lange

Dim NumFiles As Integer , NumDirs As Integer

findstr = Text1.Text

FileSize = FindFiles ( SearchPath , findstr , NumFiles , etter

NumDirs )

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

+ 1 & _

" Kataloger "
4

Klikk på "File " og deretter " Lagre" for å legge filen søkefunksjonen til programmet.