pcl_test

回复 7# doswork

修改6楼前面几行代码

Option Explicit

'以管理员身份运行
RunAsAdmin

Dim wso, cmdLine, DEL_DIR
Set wso = CreateObject("WScript.Shell")
'更改当前目录为C盘根目录，也可以改成别的非VBS文件所在的目录
CreateObject("WScript.Shell").CurrentDirectory = "C:\"
'待删除文件夹
DEL_DIR = CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
……
复制代码