Programação  
 
Conhecimento computador >> Programação >> Programação De Computador Idiomas >> 
Como procurar um arquivo no VB
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 .

Anterior :

Próximo : No
  Os artigos relacionados
·As vantagens de usar Pseudocódigo 
·Como Fazer um Console Eclipse Longer 
·Binário Computação Dicas & Truques 
·Como resolver um Matrix Usando QBasic 
·Como excluir arquivos usando T-SQL 
·Como converter UTF8 Textos 
·A lista de métodos Scala 
·Como converter um Byte Mac Address em um String 
·Como adicionar Apóstrofes em MATLAB 
·Como comparar algoritmos de computador 
  Artigos em destaque
·O que é Espaço em branco em Matlab 
·O que é um código C Fragmento 
·Como fazer um Pseudocódigo Temperatura & Fluxograma 
·Como criar AutoCAD Script com pausa em TI 
·Como depurar vazamentos de memória em GDB 
·O que está perto PASCAL e FAR PASCAL 
·Como adicionar uma DLL no Visual C 
·Como compartilhar variáveis ​​ao longo CPP 
·Como escrever várias linhas para arquivo em C 
·Como detectar colisões no Xcode 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados