USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Windows)

Título da Dica:  Pegar nome de arquivo dentro de um diretório
Postada em 13/3/2007 por LCRamos            
Dica, de como pegar o nome de um arquivo selecionado em uma pasta pelo usuário.

Coloque:
1 DriveListBox
1 DirListBox
1 FileListBox

Defina a poropriedade .Pattern do FileListBox com a extensão do arquivo que quiser, caso todos use (*.*), em run time, o melhor o usuário definir em uma CoboBox.
Private Sub Drive1_Change()
On Error GoTo erro
  Dir1.Path = Drive1.Drive
  Exit Sub
erro:
  MsgBox("Erro ao acessar o drive !!!")
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
MEUARQUIVO = Dir1.Path & "|" & File1
suARQ = File1
End Sub

ACIMA SUBSTITUA O PIPE PELA BARRA INVERTIDA

Localizar o nome do arquivo selecionado, pode-se usar a propriedade FileName do File1.

NOMEDOARQUIVO = File1.FileName  (para o arquivo selecionado)

Percorrer todos arquivos e pagando os nomes de todos:

Dim lNUM As Loag
lNUM =0

For lNUM = 0 To File1.ListCount
MEUARQUIVO = File1.FileName
File1.ListIndex = lNUM
Next

Percorre toda a pasta com todos os arquivos, com a extensão selecionada ou *.* p/ todos.

vlu//



 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página