LISTAR ARQUIVOS EM TXT
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
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
Olha pra caregar no Text Box use:
E pra salvar em Txt use:
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?
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