标题: [求助]请BAT高手，急解！！！！！！！！！！！！ [打印本页]
作者: twftawxf 时间: 2007-4-20 03:18 标题: [求助]请BAT高手，急解！！！！！！！！！！！！
我想删除E：\qq\下所有以QQ号命的文件夹， 只写8位和9位QQ号就行，，，其它的不用算在内！
原因是：我的QQ没保护，很多多人上网，，，会有很多以QQ号命的文件夹，所以我想请教各位大哥。指教一下，
这个批处理怎么编？ 小弟在此先谢谢了，
作者: estar 时间: 2007-4-20 03:47
findstr /?
作者: wudixin96 时间: 2007-4-20 07:38
@echo off
for /f %%i in ('dir /ad /b^|findstr /r /x [0-9]*') do rd /s /q %%i
pause
for /f %%i in ('dir /ad /b^|findstr /r /x [0-9]*') do rd /s /q %%i
pause
作者: twftawxf 时间: 2007-4-21 02:53
你好，wudixin96 ，，我想删除e:\QQ下面的啊，，， 还有。文件名为：0 的那个不删啊，
可以给我修改一下吗？
作者: everest79 时间: 2007-4-21 03:08
http://www.cn-dos.net/forum/viewthread.php?tid=29862&fpage=1
这里有哇
作者: flyinspace 时间: 2007-4-21 03:33
呵呵，感觉在这里不懂vbs就好象少了只手一样呢：）
作者: everest79 时间: 2007-4-21 03:39
我基本上不懂英文，所以，就断掉了一只手
作者: flyinspace 时间: 2007-4-21 03:44
呵呵，那你就好好好学了。。
学会了就等于长多了一只手。。。这样就比别人占便宜了。
因为穷级思变，批处理功能太小了。就会想到更多的好点子来完成呢。。
现在的 vista 下面的批处理，就已经非常强大了。
作者: stornager 时间: 2007-4-21 05:41
vista下面的批处理到底有多强大???请大哥给小弟讲讲.
作者: flyinspace 时间: 2007-4-21 05:47
可以和 UNIX 下的比了。。
不过里面已经不叫cmd了。。
有了新的名称。。。具体是什么因为没有装所以不是很清楚。。
好象在 vista下。所有的操作都可以用批处理完成。。。
作者: stornager 时间: 2007-4-21 05:59
哦,然来如此.等安装了vista系统一定要好好研究.
作者: youxi01 时间: 2007-4-21 11:18
3F的代码似乎效率有点低了。
可以试 下以下的代码（利用 set /a的特性）,显示所有QQ号为8位或者9位的QQ：
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b e:\qq') do (
set/a QQnum=%%i >nul 2>nul
if !QQnum! gtr 10000000 echo !QQnum!
)
pause>nul
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b e:\qq') do (
set/a QQnum=%%i >nul 2>nul
if !QQnum! gtr 10000000 echo !QQnum!
)
pause>nul
作者: flyinspace 时间: 2007-4-21 12:06
| Quote: | |
|
噢。。。。。。。
麻烦你看完 dir /?
然后在把代码精简。。。
麻烦你看完 findstr /?
然后。
你还有什么问题么？
作者: youxi01 时间: 2007-4-21 13:54
呵呵，回楼上的兄弟，
| Quote: | |
|
因为测试的时候，随便只是新建了几个文件夹，没考虑QQ文件夹还有很多文件的，是我的疏忽，应该将 dir /b 改成 dir /b /ad 。
至于，利用 dir +管道 + findstr 的效率比较低的问题，在很早以前的帖子就已经有涉及到了，特别是针对象QQ这样文件比较多的文件夹。凶可以测试/
作者: bjsh 时间: 2007-4-21 20:57
| Quote: | |
|
叫做powershell;
做成了面向对象的一种shell了;
为了这个powershell;装个xp版的;总感觉不正规;
于是为了这个昨晚装了个vista;不过我咋没找到poweshell呢;郁闷
作者: estar 时间: 2007-4-22 00:11
Vista 没有自带PowerShell。
作者: twftawxf 时间: 2007-4-22 08:11 标题: 那边那个楼主是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账号存留文件"
作者: wgx1688 时间: 2007-4-24 03:56 标题: 恩~~学学~
长知识了~~~