Board logo

标题: [求助]请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 *') do rd /s /q %%i
pause

作者: twftawxf     时间: 2007-4-21 02:53
你好,wudixin96 ,,我想删除e:\QQ下面的啊,,, 还有。文件名为:0 的那个不删啊,

可以给我修改一下吗?

作者: everest79     时间: 2007-4-21 03:08
作者: 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

作者: flyinspace     时间: 2007-4-21 12:06
Originally posted by youxi01 at 2007-4-20 10:18 PM:
3F的代码似乎效率有点低了。
可以试 下以下的代码(利用 set /a的特性),显示所有QQ号为8位或者9位的QQ:

@echo off
setlocal enabledelayedexpansion

fo ...

噢。。。。。。。

麻烦你看完 dir /?
然后在把代码精简。。。
麻烦你看完 findstr /?
然后。

你还有什么问题么?

作者: youxi01     时间: 2007-4-21 13:54
呵呵,回楼上的兄弟,
麻烦你看完 dir /?
然后在把代码精简。。。

因为测试的时候,随便只是新建了几个文件夹,没考虑QQ文件夹还有很多文件的,是我的疏忽,应该将 dir /b 改成 dir /b /ad 。
至于,利用 dir +管道 + findstr 的效率比较低的问题,在很早以前的帖子就已经有涉及到了,特别是针对象QQ这样文件比较多的文件夹。凶可以测试/

作者: bjsh     时间: 2007-4-21 20:57
Originally posted by flyinspace at 2007-4-20 04:47 PM:
可以和 UNIX 下的比了。。

不过里面已经不叫cmd了。。

有了新的名称。。。


叫做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    标题: 恩~~学学~
长知识了~~~