Microsoft linguagem de programação Visual Basic contém as funções que lhe dão a capacidade de usar informações do sistema do Windows. Ele inclui os métodos para recuperar informações sobre arquivos e diretórios. O " My.Computer.FileSystem.GetFiles " Método retorna um conjunto de cordas que representam os nomes de caminho para os arquivos . Ao utilizar o " GetFiles " parâmetro em seu programa Visual Basic , você pode definir o nome eo caminho do diretório para trabalhar com as unidades e arquivos em aplicativos do usuário. Instruções
1
Clique em " Iniciar" do Windows e clique em "Microsoft Visual Studio. "
2
Clique em "Arquivo ". Selecione "Abrir ", e , em seguida, clique duas vezes sobre o programa Visual Basic na qual você deseja adicionar a função de busca de arquivos.
3
Adicione o seguinte código após o " Public Shared Function " linha:
FindFiles função ( caminho As String , searchStr As String ,
_
FileCount As Integer , DirCount As Integer)
Dim FileName As String ' variável Matrícula .
Dim DirName As String' subdiretório nome.
Dim dirNames () As string ' buffer 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 direito (caminho, 1) <> " \\ " Então caminho = caminho & "\\"
' Pesquisar subdiretórios.
NDIR = 0
ReDim dirNames ( 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 <> " .. ") Then
'Verificar diretório com comparação bit a bit .
Se GetAttr (caminho & DirName ) e vbDirectory
Então
dirNames
(NDIR ) = DirName
DirCount = DirCount + 1
NDIR = NDIR + 1
ReDim Preserve dirNames ( NDIR)
End If 'em
diretórios
sysFileERRCont : .
End If
DirName = Dir () ' Pega o próximo subdiretório
loop
. Pesquisar este diretório
FileName = Dir ( caminho & searchStr , vbNormal Ou
vbHidden Ou vbSystem _
Ou vbReadOnly Ou vbArchive ) .
Enquanto Len ( FileName ) <> 0
FindFiles = FindFiles + FileLen (caminho & FileName )
FileCount = FileCount + 1
FileName = Dir () ' Pega o próximo arquivo .
Wend
Para Cada Text1.Text As String No
My.Computer.FileSystem.GetFiles (_
My.Computer.FileSystem.SpecialDirectories . MeusDocumentos , _
FileIO.SearchOption.SearchAllSubDirectories , "*. dll" )
Listbox.Items.Add ( Text1.Text )
Próxima
Dim SearchPath As String , fINDSTR As String Dim
FileSize As Long Dim
numfiles As Integer , NumDirs As Integer
fINDSTR = Text1.Text
Tamanho = FindFiles ( SearchPath , fINDSTR , numfiles , Baratos
NumDirs )
Text3.Text = numfiles e "Arquivos encontrados em " & NumDirs
+ 1 & _
"Diretórios "
4
clique em "Arquivo ", seguido de "Salvar" para adicionar a função de busca de arquivos para o seu programa .
