Private Sub Command1_Click() '普通删除文件夹
    RmDir "C:\新建文件夹"
End Sub

Private Sub Command2_Click() '强制删除文件夹
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.deletefolder "C:\Users\AK47\AppData\Local\Opera\Mobile"
End Sub