COMO FACO PARA PERCORRER OS ARQUIVOS DE UMA PASTA?

USUARIO.EXCLUIDOS 03/07/2004 12:31:03
#32107
Estou com o seguinte problema: Tenho um programa que todos os dias ao meio dia ele abre uma pasta de um site (por FTP) e baixa um arquivo específico. Tudo funciona muito bem, só que agora preciso pegar TODOS os arquivos de um pasta.
Alguém sabe como se percorre todos os arquivos de uma pasta, pode ser do próprio micro, tipo o c:\ por exemplo?

Valeu...
USUARIO.EXCLUIDOS 03/07/2004 16:20:28
#32117 Resposta escolhida
Resumindo . . .


Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim Arquivo As File
Dim Pasta As Folder
Set Pasta = FSO.GetFolder("C:\Windows")
For Each Arquivo In Pasta.Files
    MsgBox Arquivo.Name, , "Arquivo encontrado..."
Next
End Sub


Você tem que fazer referencia a Scrrun.dll
Vá no menu Project depois em References e marque a opção Microsoft Scripting Runtime
USUARIO.EXCLUIDOS 03/07/2004 16:24:09
#32118
Se você não quiser utilizar a dll, você pode utilizar o componente FileListBox.


Private Sub Command1_Click()
File1.Path = "C:\Windows"
For i = 0 To File1.ListCount
    MsgBox File1.List(i), , "Arquivo encontrado..."
Next i
End Sub


Mas aconselho você a utilizar o File System Object, tem muitas opções para manipular arquivos.

Caso sua dúvida tenha sido respondida, favor encerrar o tópico
Tópico encerrado , respostas não são mais permitidas
Voltar