Este post foi originalmente publicado em https://officevbavsto.blogspot.com/2011/04/quickshot-deletando-pastas.html.

Hoje, compartilharei como deletar pastas. Muito cuidado ao usar esta função, pois a pasta que for excluída, terá os arquivos contidos nela também apagados.

Sub DeletaPasta()

  Dim fso
  Dim pasta As String
  
  pasta= "c:\teste" ' mude para a pasta que deseja excluir
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  If fso.FolderExists(pasta) Then
      fso.DeleteFolder pasta
  Else
      MsgBox pasta & " não existe ou já foi excluído!", vbExclamation, "Office, VBA e VSTO"
  End If

End Sub

Créditos

Image by Gerd Altmann from Pixabay