|
|
|
|
|
|
|
|
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//
|
|
|
|
|
