Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Kristofer Siqueira

Como criar pastas por VB

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.