[Resolvido]Criar Diretórios e Subdiretórios

Olá amigos, bom dia!

Seria possível criar um diretório e subdiretórios nele, em seguida outro diretório e os subdiretórios nesse e assim até um limite definido, tipo um loop???
ex: tenho uma tabela com duas colunas:
escola___turma
101______1201
101______1202
101______1203
102______1204
102______1205
103______1206
103______1207
Criar as pastas da seguinte forma:
C:/101/1201
C:/101/1202
C:/101/1203
C:/102/1204
C:/102/1205
C:/103/1206
C:/103/1207

Tem como pesquisar nessa tabela e criar tudo automaticamente, com um único clique??

abraços

Edmundo.

Olá ehs

O Mestre JPaulo tem exemplos aqui no repositório de códigos. Veja este:

http://dl.dropbox.com/u/771097/CriarPastaComSubPasta.txt

olá Vieira, já havia visto esta parte que me mostrou em um tópico seu mesmo, com os exemplos do Mestre JPaulo, mas o que me falta é conseguir fazer o "loop" com a pesquisa na tabela. Isto é possível?

Abraços

Edmundo.

Bom dia, ehs

Veja a adaptação do código do Grande JPaulo

Private Sub SeuBotão_Click()
On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Escola, Turma FROM SuaTabela;")

Do While Not Rst.EOF
If Not fso.FolderExists("C:BarraInvertida" & Rst(0)) Then MkDir "C:BarraInvertida" & Rst(0) ' verifica se já existe a pasta. se não existir cria
If Not fso.FolderExists("C:BarraInvertida" & Rst(0) & "BarraInvertida" & Rst(1)) Then MkDir "C:BarraInvertida" & Rst(0) & "BarraInvertida" & Rst(1) ' verifica se já existe a pasta. se não existir cria
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

substituir BarraInvertida pelo símbolo próprio.

Amigo EHS

Siga a dica do Colega Alexandre, pois não podia ser mais oportuna.

Bom Trabalho

(RESOLVIDO)

Meus Amigos, boa noite!!

Vocês, Vieira e Alexandre, ajudaram muito!! obrigado mesmo.

Só tive que refazer uns pequenos detalhes no código, mas nada d+, posto abaixo para caso alguem precisar:

Private Sub Comando0_Click()

On Error Resume Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Escola, Turma FROM cs_TESTE_PARA_CRIAR_DIRETÓRIOS;")

Do While Not Rst.EOF
If Not fso.FolderExists("D:MinhaPasta") Then MkDir "D:MinhaPasta" ' verifica se já existe a pasta. se não existir cria
If Not fso.FolderExists("D:MinhaPasta" & Rst(0)) Then MkDir "D:MinhaPasta" & Rst(0) ' verifica se já existe a pasta. se não existir cria
If Not fso.FolderExists("D:MinhaPasta" & Rst(0) & "" & Rst(1)) Then MkDir "D:MinhaPasta" & Rst(0) & "" & Rst(1) ' verifica se já existe a pasta. se não existir cria
Rst.MoveNext
Loop
Set Rst = Nothing

End Sub


Com o anterior criava as pastas assim:
D:MinhaPasta101
D:MinhaPasta101MinhaPasta1201
D:MinhaPasta101MinhaPasta1202
(isto é, várias pastas)

com as alterações ficou, extamente como queria:
D:MinhaPasta/101/1201
D:MinhaPasta/101/1202
D:MinhaPasta/101/1203
D:MinhaPasta/102/1204
...


Valeu msm.

Edmundo.