|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: listar todos arquivos dentro de uma pasta (com FSO) - recursivo
|
 |
|
|
|
Postada em 30/12/2004 por Martini
lista todos arquivos (de um determinado tipo ) dentro de uma pasta (inclusive as subpastas)
'Pega todos os arquivos (de um determinado tipo) que estão na pasta de origem
Private Sub subPegaAquivos(strPastaOrigem As String)
'Cria instância do FSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolderOrigem = objFSO.GetFolder(strPastaOrigem)
Set objFoldersSubOrig = objFolderOrigem.SubFolders
'Para cada pasta na coleção de subpastas da pasta origem
For Each objFolder In objFoldersSubOrig
'Chama recursivo enquanto tiver subpasta
subPegaAquivos objFolder.Path
'Para cada arquivo na coleção de arquivos da pasta
For Each objFile In objFolder.Files
'Verifica se o arquivo encontrado é do tipo PRW
If ((LCase(Right(objFile.Path, 3))) = "prw") Then
'Atualiza RichTextBox -> lista arquivos processados
rtbArquivosProcessados.Text = rtbArquivosProcessados.Text & objFile.Path & Chr(13) & Chr(10)
'Atualiza formulário
Me.Refresh
End If
Next
Next
End Sub
|
|
|
|
|
