中国DOS联盟

昨天看到有位仁兄需要解决的问题，今天帖子找不到了

'请自己修改程序中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账号存留文件"

for /f %i in ('dir /ad /b^|findstr /v /b /e [0-9]^|findstr /r /b /e [0-9]*[0-9]') do echo %i
我也写了一个

....米我的效果好看 ~_~

嘿嘿，因为我用VBS写不出来

呵呵，但2楼的代码非常短：）

嘿嘿

萝卜白菜各有所爱。。。

一个漂亮，一个简洁。若是两个可以结合一起就好了：）

懒啊，所以小建议，最好是能自动搜索路径，不然有输入路径的时间，手动都删除完了。

不懂，偶是VBS盲。想学可学不下去。

everest79兄的代码很牛,经测试可以达到效果,希望能够有详细解释,昨天我也曾经尝试写这个批,由于水平太菜,后来没写下去.望everest79兄给出注释,先谢了

可以从注册表中读取路径

for /f %i in ('dir /ad /b^|findstr /v /b /e [0-9]^|findstr /r /b /e [0-9]*[0-9]') do echo %i

findstr /v /b /e [0-9] 这一个是用来过滤目录0的
findstr /r /b /e [0-9]*[0-9] 这个将上一步筛选过的目录名称再次过滤，这次结果就是所有QQ号目录

嘿嘿，其实这个不安全，要是没有，可能会把整个目录删掉

先标记下 有空研究下 回来我还会继续提问的 (^ _^)

HKLM\SOFTWARE\Tencent\QQ\Install

这里可以自动整到路径

把楼主和14楼的贴粘一起，混点分，呵呵

DIm regQQpath,objShell,QQpath
Dim fso,finm,all

regQQpath = "HKLM\Software\Tencent\QQ\Install"
Set objShell = CreateObject("WScript.Shell")
QQpath = objShell.regRead(regQQpath)

set fso=createobject("scripting.filesystemobject")
set flnm=fso.getfolder(QQpath)
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账号存留文件"