Sub aaa()
'单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft   Scripting   Runtime”前的复选框
    Dim fso As New FileSystemObject
    Dim fldr As Folder
    If fso.FolderExists("d:\test1") Then             '判断文件夹是否存在
        fso.DeleteFolder ("d:\test1")
    Else
        MsgBox "文件夹不存在"
    End If
End Sub