PESQUISAR EM SUBPASTAS
Usando o seguinte codigo , consigo percorrer todos os arquivos de um diretorio!
ChDir ("c:\")
arquivo = Dir$("*.*")
Do While (True)
arquivo = Dir$
If arquivo = "" Then Exit Do
MsgBox arquivo
Loop
Como eu faço para percorrer os arquivos dos sub, sub ,sub e sub... diretorios?
como estamos na raiz ,(c:) a ideia seria mostrar todos arquivos do hd ! vlws galera falow
ChDir ("c:\")
arquivo = Dir$("*.*")
Do While (True)
arquivo = Dir$
If arquivo = "" Then Exit Do
MsgBox arquivo
Loop
Como eu faço para percorrer os arquivos dos sub, sub ,sub e sub... diretorios?
como estamos na raiz ,(c:) a ideia seria mostrar todos arquivos do hd ! vlws galera falow
Galera achei esse codigo para percorrer diretorios!!! mais nao consigo usar e nem aonde usar ,mais especificamento eu nao sei oq passar como argumento,
Dim subdir As Folder
Public Sub AchaArquivos(dir As Folder)
'----- inicia a busca nas sub-pastas -----------
msgbox dir
For Each subdir In dir.SubFolders ' para cada subpasta chama a
AchaArquivos subdir ' função achaArquivos recurssivamente
Next
End Sub
Abs
Dim subdir As Folder
Public Sub AchaArquivos(dir As Folder)
'----- inicia a busca nas sub-pastas -----------
msgbox dir
For Each subdir In dir.SubFolders ' para cada subpasta chama a
AchaArquivos subdir ' função achaArquivos recurssivamente
Next
End Sub
Abs
Tópico encerrado , respostas não são mais permitidas