中国DOS联盟

Vista 没有自带PowerShell。

那边那个楼主是VBS版的 不知道，，，你们可以献出BAT版的吗，，，因为我不懂VBS，，，哎~~~



『楼 主』: 清除QQ根目录下账号文件夹-VBS版

昨天看到有位仁兄需要解决的问题，今天帖子找不到了
CODE: [Copy to clipboard]
--------------------------------------------------------------------------------

'请自己修改程序中QQ文件夹的位置。
'不管是8位还是9位，只要是数字名字的文件夹都会删除！
'顺便说一句，最近的中国电视剧拍的越来越没品位了！
dim fso,finm,all
set fso=createobject("scripting.filesystemobject")
set flnm=fso.getfolder("C:\Program Files\QQ2006")
set all=flnm.subfolders


for each path in all
dim fs,fnm
set fs=createobject("scripting.filesystemobject")
fnm=fs.getfilename(path)

on error resume next
fnm=int(fnm)
if err.number<>13 then
dim list
fs.deletefolder(path)
list=list&fnm&chr(10)
end if
next
msgbox "已删除的QQ号码文件夹:"&chr(10)&list,vbinformation,"清除QQ账号存留文件"

长知识了~~~