Sub 删除文件夹_fso()
Dim fso As New FileSystemObject
Dim sfolder As String
sfolder = Application.InputBox(prompt:="请输入需要删除的文件夹名称", _
Title:="输入文件夹名称", Type:=2)
If sfolder = "False" Or sfolder = "" Then Exit Sub
sfolder = ThisWorkbook.Path & "\" & sfolder
If fso.FolderExists(sfolder) Then
fso.DeleteFolder (sfolder)
MsgBox "文件夹"" & sfolder & ""已经删除!"
Else
MsgBox "文件夹" & sfolder & "不存在!"
End If
Set fso = Nothing
End Sub