Como criar pastas por VB

[Kristofer Siqueira 0]

Olá, estou com uma duvida.

Gostaria de saber como, utilizando o VBA, criar uma pasta com o ano vigente, depois, dentro da pasta com o ano vigente criasse uma pasta do mês vigente e dentro desta pasta do mês vigente salvasse o excel que estou trabalhando.

Sendo organizado desta maneira. ANO>MÊS>EXCEL

Estava usando o código abaixo, mas este código não cria uma pasta dentro da outra e não salva meu excel dentro da pasta do mês vigente.

Sub Salvamento()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

NomePasta = Format(Date, "YYYY")

If Not fso.FolderExists(NomePasta) Then

fso.CreateFolder (NomePasta)

End If

Set fso = CreateObject("Scripting.FileSystemObject")

Pasta = Format(Date, "MM")

If Not fso.FolderExists(Pasta) Then

fso.CreateFolder (Pasta)

End If

End Sub

Agradeço muito a ajuda de todos.

[KhaosDoctor 242]

É que você não colocou o código para salvar seu excel ai dentro, sua dúvida é esta?

[Kristofer Siqueira 0]

Essa é uma das duvidas, a outra é como fazer com que o código que cria a pasta mês seja criado dentro da pasta ano.

[KhaosDoctor 242]

Ao invés de usar fso, use o System.IO e verifique se a pasta existe:

 

https://stackoverflow.com/questions/85996/how-do-i-create-a-folder-in-vb-if-it-doesnt-exist

If System.IO.Directory.Exists("CaminhoAno") then

  System.IO.Directory.CreateDirectory("CaminhoAno")

  If System.IO.Directory.Exists("CaminhoMes") Then

    System.IO.Directory.CreateDirectory("CaminhoMes")

  End if

End If

No caminho você pode usar allgo como "C:\2014" ai depois "C:\2014\Abril" para verificar, se existir ele não criará, se não ele vai criar a pasta

[Kristofer Siqueira 0]

Obrigado!!

 

Deu certo

 

Valeu pela ajuda!