Ako na vyhľadávanie súboru vo VB

Microsoft Visual Basic programovací jazyk obsahuje funkcie , ktoré vám dávajú možnosť používať informácie o systéme Windows . Obsahuje metódy pre získavanie informácií o súboroch a adresároch . " My.Computer.FileSystem.GetFiles " Metóda vracia množinu reťazcov , ktoré predstavujú názvy cestu k súborom . Pomocou parametra " GetFiles " v programe Visual Basic , môžete definovať názov a cestu k adresáru pre prácu s diskami a súbory v užívateľských aplikáciách . Návod dovolená 1

Kliknite na " Spustiť " v systéme Windows , a potom kliknite na tlačidlo " Microsoft Visual Studio . "
2

Kliknite na " Súbor " . Vyberte " Otvoriť " a potom dvakrát kliknite na programe Visual Basic , v ktorom chcete pridať funkciu vyhľadávania súborov .
3

Pridajte nasledujúci kód po " Public Shared Function " linka : Spojené

Funkčné FindFiles ( cesta As String , SearchStr As String ,

_

FileCount As Integer , DirCount As Integer )

Dim názov súboru , ako String " Meno súboru premennej .

Dim dirname ako reťazec " názov podadresára .

Dim dirNames ( ) As String ' Vyrovnávacia pamäť pre názov adresára

záznamov .

Dim NDIR As Integer ' počet adresárov v

tejto ceste .

Dim i As Integer ' U - slučky pult .

On Error GoTo sysFileERR

pravá ( cesta , 1 ) < > " \\ " Tak path = path & " \\ "

" Hľadať podadresárov .

NDIR = 0

ReDim dirNames ( NDIR )

dirname = Dir ( cesta , vbDirectory Alebo vbHidden Alebo

vbArchive Alebo vbReadOnly _

Alebo vbSystem ) " Aj keď skryté , a tak ďalej .

Do While Ľan ( dirname ) > 0

" Ignorovať aktuálne a súvisiace adresáre .

( dirname < > " . " ) a ( dirname < > " .. " ) Potom

" Skontrolujte, či adresár s porovnaním bitového .

Ak GetAttr ( cesta a dirname ) a vbDirectory

Potom

dirNames ( NDIR ) = dirname

DirCount = DirCount + 1

NDIR = NDIR + 1

ReDim zachovať dirNames ( NDIR )

End If '

adresára

sysFileERRCont : .

End If

dirname = Dir ( ) " Získať ďalšie podadresár

Loop

. " prostredníctvom tohto adresára vyhľadávanie .

FileName = Dir ( cesta a SearchStr , vbNormal Alebo

vbHidden Alebo vbSystem _

Alebo vbReadOnly Alebo vbArchive )

Kým Ľan ( FileName ) < > 0

FindFiles = FindFiles + FileLen ( cesta a FileName )

FileCount = FileCount + 1

FileName = Dir ( ) " Získať ďalší obrázok .

Wend

každý Text1.Text As String V

My.Computer.FileSystem.GetFiles ( _

My.Computer.FileSystem.SpecialDirectories . MyDocuments , _

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

Listbox.Items.Add ( Text1.Text )

Ďalšie

Dim SearchPath As String , findstr As String

Dim veľkosť As Long Dim

NumFiles As Integer , NumDirs As Integer

findstr = Text1.Text

FileSize = FindFiles ( SearchPath , findstr , NumFiles ,

NumDirs )

Text3.Text = NumFiles & " Nájdených súborov v " & NumDirs

+ 1 & _

" Adresáre "
4

Kliknite na " Súbor " potom " Uložiť " pridať funkciu vyhľadávania súborov na vašom programe .

• Predchádzajúca strana: Ako nastaviť hodnoty vo vnútri poľa so zoznamom v jazyku Visual Basic . 
• Ďalšia strana: Ako previesť reťazec z textového poľa údajová mriežka v C #