detectar multipos subdiretorios

[fpimenta 0]

gente é o seguinte,

 

estou fazendo um pequeno programa de backup.

 

quero copiar um arquivo por vez para colocar no log, mas tem um problema, preciso que o programa veja se existe um sub diretorio ou subdiretorios para que ele possa fazer o caminho completo para a copia de cada arquivo.

 

exemplo

 

 

tenho o diretorio c:\teste

 

neste diretorio tenho o arquivo teste.txt e um subdiretorio teste1 que contem 1 arquivo a.txt

 

assim o programa deveria seguir

 

fso.copyfile c:\TESTE\teste.txt

fso.copyfile c:\TESTE\teste1\a.txt

 

'SE EU INFORMAR PARA COPIAR SO O ARQUIVO O SUBDIRETORIO VAI ESCAPAR DA ESTRUTURA

 

 

 

 

AGRADEÇO A ATENÇÃO

[Luizgrs 0]

Eu tava fazendo um programinha pra mexer com diretório usando fso e talz daí eu criei uma rotina assim:

 

Public Sub carrega_pasta(caminho As String)    Dim pasta As Folder    Dim subdir As Folder    Set pasta = fso.GetFolder(caminho)    For Each subdir In pasta.SubFolders        'faz alguma ação necessária        Call carrega_pasta(subdir.Path)    NextEnd Sub

Assim há cada nova pasta que fosse achando dentro do diretório ele vai chamar a rotina de novo até que ñ haja mais subdiretórios e a rotina volta fechando todas abertas.