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

Créditos

Photo by Yan Ots on Unsplash