[Resolvido]Excluir directório com FileSystemObject

Private Sub SeuBotão_Click()
Dim fso
Dim strDiretorio As String
strDiretorio = "C:\Pasta"
Set fso = CreateObject("Scripting.FileSystemObject")

    If Not fso.FolderExists(strDiretorio) Then
        MsgBox strDiretorio & " não encontrado.", vbCritical, "Não Encontrado"
        Exit Sub
            Else
        MsgBox strDiretorio & " encontrado e será deletado.", vbInformation, "Encontrado"
    
    If MsgBox("Deseja deletar o " & strDiretorio & " ?", vbOKCancel, "Deletar Diretorio") = vbOK Then
      fso.DeleteFolder strDiretorio
    Exit Sub
      Else
    Exit Sub
   End If
End If
End Sub

Private Sub SeuBotão_Click()
Dim fso
Dim strDiretorio, strDiretorio1, strDiretorio2 As String
strDiretorio = "C:\Pasta\Pasta1\Pasta2"
strDiretorio1 = "C:\Pasta\Pasta1"
strDiretorio2 = "C:\Pasta"
Set fso = CreateObject("Scripting.FileSystemObject")

    If Not fso.FolderExists(strDiretorio) Then
        MsgBox strDiretorio & " não encontrado.", vbCritical, "Não Encontrado"
        Exit Sub
            Else
        MsgBox strDiretorio & " encontrado e será deletado.", vbInformation, "Encontrado"
    
    If MsgBox("Deseja deletar o " & strDiretorio & " ?", vbOKCancel, "Deletar Diretorio") = vbOK Then
      fso.DeleteFolder strDiretorio
      fso.DeleteFolder strDiretorio1
      fso.DeleteFolder strDiretorio2
    Exit Sub
      Else
    Exit Sub
   End If
End If
End Sub

Private Sub SeuBotao_Click()
Dim fso, strPasta, strDataControle
'Diretorio da 1ª Pasta a deletar
'Atenção que deleta tudo o que estiver dentro dessa 1ª Pasta
strDiretorio = "C:\1ªPasta"

Set fso = CreateObject("Scripting.FileSystemObject")
Set strPasta = fso.GetFolder(strDiretorio)
'Data de controle é a data de hoje
    strDataControle = Date
'Insere na variavel a data da ultima modificação na Pasta
    DateLastModified = strPasta.DateLastModified
'Se a data de modificação for inferior à data de hoje, deleta to o diretorio
        If CDate(format(DateLastModified, "dd-mm-yyyy")) < strDataControle Then
            strPasta.Attributes = 0
            strPasta.Delete vbTrue
        End If
End Sub