中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]请BAT高手，急解！！！！！！！！！！！！

‹ « [1] [2] »

estar
中级用户

积分 346
发帖 103
注册 2004-4-6
状态离线

『第 16 楼』:

Vista 没有自带PowerShell。

2007-4-22 00:11

twftawxf
初级用户

积分 29
发帖 11
注册 2007-4-15
状态离线

『第 17 楼』: 那边那个楼主是VBS版的

那边那个楼主是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账号存留文件"

2007-4-22 08:11

wgx1688
初级用户

积分 60
发帖 34
注册 2007-4-24
状态离线

『第 18 楼』: 恩~~学学~

长知识了~~~

2007-4-24 03:56

‹ « [1] [2] »

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: