中国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账号存留文件"

I saw a problem that a fellow needed to solve yesterday, but today the post can't be found

'Please modify the location of the QQ folder in the program by yourself.

'No matter whether it is 8-digit or 9-digit, any folder with a numeric name will be deleted!

'By the way, recently Chinese TV dramas are getting more and more tasteless!

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 "Deleted QQ number folders:"&chr(10)&list,vbinformation,"Clear QQ account remaining files"

for /f %i in ('dir /ad /b^|findstr /v /b /e ^|findstr /r /b /e *') do echo %i
I also wrote one

....My effect looks good ~_~

Hehe, because I can't write it with VBS

Hehe, but the code on the 2nd floor is very short :)

Each to his own taste...

One is pretty, the other is simple. If only the two could be combined together : )

Lazy, so a small suggestion, it's best to be able to automatically search paths. Otherwise, by the time you enter the path, you could have manually deleted it all.

I don't understand, I'm a VBS novice. I want to learn but can't get into it.

Brother everest79's code is very impressive. After testing, it can achieve the effect. I hope to have a detailed explanation. I also tried to write this batch script yesterday, but because I was too inexperienced, I didn't continue writing it later. Please give comments, thank you in advance.

Can read the path from the registry

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

findstr /v /b /e This one is used to filter directories starting with 0
findstr /r /b /e * This filters the directory names filtered in the previous step again, and the result this time is all QQ number directories

Hehe, actually this is not safe. If there is none, it may delete the entire directory

First, mark it. I'll study it when I'm free. When I come back, I'll continue to ask questions. (^ _^)

HKLM\SOFTWARE\Tencent\QQ\Install

Here it can be automatically integrated into the path

Mix the building owner's post and the 14th floor's post together to earn some points, heh

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账号存留文件"