Como procurar um arquivo no vb

Clique em "Iniciar" do Windows e clique em "Microsoft Visual Studio."

Clique em "Arquivo". Selecione "Open", e, em seguida, clique duas vezes sobre o programa Visual Basic em que você deseja adicionar a função de pesquisa de arquivos.

Adicione o seguinte código após a linha "Função Partilhado Público":

 FindFiles função (path As String, searchStr As String, 

_

 FileCount As Integer, DirCount As Integer)
Dim nome de arquivo como variável string filename `.
Dim DirName As String `Nome subdiretório.
dirNames dim () como tampão String `para o nome do diretório 

entradas.

Dim NDIR As Integer `número de diretórios em 

este caminho.

Dim i As Integer `contador para-loop.
On Error GoTo sysFileERR
Se o botão direito (caminho, 1) <> "" Então path = caminho ""
`Procurar por subdiretórios.
NDIR = 0
dirNames ReDim (NDIR)
DirName = Dir (caminho, vbDirectory Ou vbHidden Ou 

vbArchive Ou vbReadOnly _

 Ou vbSystem) `Mesmo se escondido, e assim por diante.
Do While Len (DirName)> 0
"Ignorar os diretórios atuais e relacionados.
Se (DirName <> ".") E (DirName <> "..") Então
`Verificar diretório com comparação bit a bit.
Se GetAttr (caminho DirName) E vbDirectory 

Então

 dirNames (NDIR) = DirName
DirCount = + 1 DirCount
NDIR = NDIR + 1
ReDim Preserve dirNames (NDIR)


Fim se ` 

diretórios.

 sysFileERRCont:
Fim se
DirName = Dir () `Get próxima subdiretório.
laço
`Pesquisa através deste diretório.
FileName = Dir (caminho SearchStr, vbNormal Ou 

vbHidden Ou vbSystem _

Ou vbReadOnly ou vbArchive)
Enquanto Len (nome do arquivo) <> 0
FindFiles = FindFiles + FileLen (caminho Nome do arquivo)
FileCount = FileCount + 1
FileName = Dir () `Get próximo arquivo.
dirigir-se

Para cada Text1.Text As String No

My.Computer.FileSystem.GetFiles (_

My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
FileIO.SearchOption.SearchAllSubDirectories ", * .dll")
Listbox.Items.Add (Text1.Text)

Próximo

Dim SearchPath As String, FINDSTR As String
Dim FileSize As Long
NumFiles Dim como Integer, NumDirs As Integer
FINDSTR = Text1.Text
FileSize = FindFiles (SearchPath, FINDSTR, NumFiles, 

NumDirs)

Text3.Text = NumFiles "Arquivos encontrados em" NumDirs 

• 1 _

   "Diretórios"

Clique em "Arquivo" seguido de "Save" para adicionar a função de busca de arquivos para o seu programa.