LISTAR ARQUIVOS EM TXT

USUARIO.EXCLUIDOS 04/05/2005 15:15:29
#81607
Gostaria de saber como faço para listar os arquivos contidos numa determinada pasta em um arquivo texto usando o metodo Print, pegando o nome de cada arquivo partindo do diretorio do mesmo

Ex. Listar as imagens em um diretorio (Jpg,gif,bmp)
c:\windows\Fotos\imagen1.jpg
c:\windows\Fotos\imagen2.jpg
c:\windows\Fotos\imagen1.gif
c:\windows\Fotos\imagen1.bmp

Devera ser gravado no txt assim:
Fotos\imagen1.jpg
Fotos\imagen2.jpg
Fotos\imagen1.gif
Fotos\imagen1.bmp

E se possivel uma rotina bem simples.

Obrigado
GABRIEL.LOGAN 04/05/2005 19:25:18
#81636
Resposta escolhida
Olha pra caregar no Text Box use:

Private Sub Command1_Click()
Text1.Text = ""
For x = 0 To File1.ListCount - 1
File1.ListIndex = x
Text1.Text = Text1.Text & vbCrLf & File1.Path & File1.FileName
Next
End Sub

Private Sub Form_Load()
File1.Path = "C:\Windows\Fotos"
File1.Pattern = "*.jpg*;*.gif*;*.bmp*"
End Sub


E pra salvar em Txt use:

Open App.Path & "\Text.txt" For Output As #1
Print #1, Text1.Text
Close #1


Agora pra retirar o c:\windows\ eu vou dar uma olhada.

A final de contas o diretório c:\windows\Fotos é fixo? Não muda? Se muda como vou saber qual vai ser o diretório que vc vai querer que elimina?
Tópico encerrado , respostas não são mais permitidas