Como criar pastas usando VBA
Criar pastas em macros é muito útil quando você precisa garantir que determinado diretório existe antes de salvar um arquivo, por exemplo. Hoje, nesse post você aprenderá a como verificar se uma pasta existe e a criá-la em seguinda.
Este post foi originalmente publicado em https://officevbavsto.blogspot.com/2011/04/quickshot-criando-pastas.html.
Criar pastas em macros é muito útil quando você precisa garantir que determinado diretório existe antes de salvar um arquivo, por exemplo. Hoje, nesse post você aprenderá a como verificar se uma pasta existe e a criá-la em seguinda.
Sub CriarPasta()
Dim fso
Dim pasta As String
pasta = "c:\teste1" ' mude para a pasta que deseja criar
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(pasta) Then
fso.CreateFolder (pasta)
Else
MsgBox pasta & " já existe!", vbExclamation, "Office, VBA e VSTO"
End If
End Sub
