Microsoft Visual Basic programmeertaal bevat de functies die u de mogelijkheid om Windows-systeem informatie te gebruiken . Het omvat de methode voor het ophalen van informatie over bestanden en mappen . De " My.Computer.FileSystem.GetFiles " Methode retourneert een set snaren dat het pad namen voor de bestanden vertegenwoordigen . Met behulp van de parameter " GetFiles ' in uw Visual Basic -programma , kunt u de naam en het pad van de directory te definiëren voor het werken met de schijven en bestanden in gebruikerstoepassingen . Instructies
1 Klik op "Start " in Windows , en klik vervolgens op " Microsoft Visual Studio . "
Klik op ' Bestand '. 2 Selecteer "Open ", en dubbelklik vervolgens op het Visual Basic programma waarin u de zoekfunctie bestand toe te voegen .
3 Voeg de volgende code na de "Public Shared Function " lijn : Functie FindFiles
( pad As String , SearchStr als Koord ,
_ FileCount
als Geheel , DirCount als Geheel ) Dim bestandsnaam
als Koord ' Bestandsnaam variabele . Dim DirName
As String ' submapnaam . Dim dirNames
( ) As String ' Buffer voor mapnaam inzendingen
.
Dim NDIR As Integer ' Aantal mappen in
dit pad . Dim i
als Geheel ' Voor -loop toonbank .
On Error GoTo sysFileERR
Als rechts ( weg , 1 ) op Twitter NDIR = 0 ReDim dirNames ( < > " \\ " Dan path = pad & " \\ "
' Zoek submappen .
NDIR ) DirName
= Dir ( pad , vbArchive vbDirectory of vbHidden of
of vbReadOnly _
of vbSystem ) ' Zelfs als verborgen , en ga zo maar door .
Do While Len ( DirName ) > 0
' de huidige en de bijbehorende mappen Negeer .
Als ( DirName < > " . " ) en ( DirName < > " .. " ) dan
'Controleer op directory met bitwise vergelijking .
Als GetAttr ( path & DirName ) en vbDirectory
dan dirNames
( NDIR ) = DirName DirCount
= DirCount + 1
NDIR = NDIR + 1
ReDim Preserve dirNames ( NDIR ) End
Als '
directories
sysFileERRCont : . End
Als DirName
= Dir () ' . Krijg volgende subdirectory Loop
' Doorzoek deze directory . FileName
= Dir ( pad & SearchStr , vbNormal Of vbHidden Of vbSystem
_
Of vbReadOnly Of vbArchive ) op Twitter Terwijl Len ( bestandsnaam ) < > 0 FindFiles
= FindFiles + FileLen ( pad & bestandsnaam ) op Twitter FileCount = FileCount + 1 FileName
= Dir () ' volgend bestand Get .
Wend
voor Elke Text1.Text As String In My.Computer.FileSystem.GetFiles
( _ My.Computer.FileSystem.SpecialDirectories
. MyDocuments , _ FileIO.SearchOption.SearchAllSubDirectories
, " * . dll" ) Listbox.Items.Add
( Text1.Text ) op Volgende
Dim SearchPath als Koord , findstr als Koord Dim FileSize
zoals lang Dim NumFiles
als Geheel , NumDirs als Geheel
findstr = Text1.Text
FileSize = FindFiles ( SearchPath , findstr , NumFiles , NumDirs
) op Twitter Text3.Text = NumFiles & " Bestanden gevonden in " & NumDirs
+ 1 & _
" Directories "
4 Klik op " bestand " , gevolgd door " Opslaan" om de zoekfunctie bestand toe te voegen aan uw programma .
|
