求一vbs脚本，要求删除脚本所在文件夹的所有文件和文件夹

如果文件夹时打开的话或者里面的文件正在被使用的话那就没办法删掉了(是指正在被使用的)....... on error resume next set fso=createobject("scripting.filesystemobject") Set f = fso.GetFile(wscript.scriptfullname) fso.deletefolder f.parentfolder.shortpath