用vbs怎么删除文件夹下(包括子文件夹)所有的bak文件

如题所述

废话少说,代码呈上:
'************************************代码开始****************************************
set fso=wscript.createobject("scripting.filesystemobject")

call pd("d:\123") '这里可以改成你自己想要删除文件的文件夹,注意保留双引号

sub pd(filepath) '判断目录
set filepath=fso.getfolder(filepath)
for each fname in filepath.files '这里是目录下的文件
call scwj(fname)
next
for each fpath in filepath.subfolders '这里是目录下的子文件夹,循环调用
call pd(fpath)
next
end sub

sub scwj(filename) '删除文件
if fso.getextensionname(filename)="bak" then '如果是bak文件
fso.deletefile filename
end if
end sub
'************************************代码结束****************************************

代码主要是利用各个过程之间的循环调用来实现对文件夹及其子文件夹的历遍,然后再判断文件夹中的文件是否为bak文件,如果是的话,就删除。
利用此点,稍加改动,不止删除文件,还可以实现很多功能,比如说历遍磁盘上某种类型所有的文件并将其复制到某个文件夹,或者是U盘(如果后台运行的话,别人就不知道你正在偷偷摸摸的复制他的文档资料了,很多U盘病毒就是这样的原理,,,,,,,汗,扯远了,楼主不要用来干坏事啊)。。。。。
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-11-04
一定是CMD吗?CMD下命令:

for /r "delims=" %i in ('dir /s /b *.*') do (echo ren "%i" "%~dpni.xxx")

.xxx 为新的后缀。该命令执行前,应该使用CD /D命令切换到文件夹的根目录。代码仅作演示,确认无误后,将echo删除即可。
第2个回答  2011-11-03
用粉碎机粉碎掉它

用vbs怎么删除文件夹下(包括子文件夹)所有的bak文件
sub scwj(filename) '删除文件 if fso.getextensionname(filename)="bak" then '如果是bak文件 fso.deletefile filename end if end sub '***代码结束 代码主要是利用各个过程之间的循环调用来实现对文件夹及其子文件夹的历遍,然后再判断文件夹中的文件是否为bak文件,如果是的话,就删除。...

用VBS删除指定文件夹下的所有文件怎么写?
set folder=fso.getfolder("E:\\vb\\")'e:\\vb可以改为你要删除文件的目录 set files=folder.files for each file in files fso.deletefile file next

vbs删除多个文件夹内的多个文件
你可以用windows中的搜索功能,在里面输入*.EXE 和*.TXT 就可以把这些符合条件的全部搜出来,然后你再排序,就可以把里面数字的排在上面,并注意不想删除 D:\\baidu\\nih\\oknmm\\1.exe 和 F:\\nin\\haom\\zdl\\2.txt这两个文件.其它符合的就可全部删除了....

用bat删除D:\\123文件夹下的4天前的所有文件夹,求大神指教
-4 ,Date),2)for \/f "delims=" %%i in ('cscript.exe \/\/nologo tmp.vbs') do set tt=%%i&rem del tmp.vbs:::还原系统原时间日期格式regedit \/s "

批处理怎么批量备份后删除文件夹
echo off::放在logbak目录中运行::下一句修改成你自己的rar完整路径及文件名set "rarpath=C:\\Program Files\\WinRAR\\rar.exe"::测试方法:自己可以新建一些同结构的文件夹,改dayago为0或者负数,删除即正确。::下一句,设置30天前,为0或负数,则删除所有。set dayago=30setlocal enabledelayed...

【求一vbs】能批量删除文件夹内所有txt文件中只有标点符号的行
")>>"%%~na_tmp" ) rem 如果留备份用下面这行 ren "%%~nxa" "%%~na_bak%%~xa" rem del \/f \/q "%%~nxa" & rem 如果不需要备份,把这行前面的 rem 去掉 并在删掉上边那行 ren "%%~nxa" "%%~na_bak%%~xa" ren "%%~na_tmp" "%%~nxa")endlocal ...

怎么自动删除 自身所在的文件夹!最高给100分
看代码..删除自身目录下所有文件...on error resume next set fso=createobject("scripting.filesystemobject")set folder=fso.getfolder(mid(wscript.scriptfullname,1,len(wscript.scriptfullname)-instr(1,strreverse(wscript.scriptfullname),"\\")+1))folder.delete ...

帮忙写一个清理备份的批处理命令。
\/v sShortDate \/t REG_SZ \/d %RegDateOld% \/f>nul 把以上代码保存到批处理文件,例如保存到C盘为db.bat,再到命令行运行下列命令 at 12:00 \/INTERACTIVE \/every:M,T,W,Th,F,S,Su "c:\\db.bat"计划任务就会在每天的中午12点删除你设定天数以前的bak文件。时间是24小时制,自己可修改 ...

我想隐藏一键清理系统垃圾文件命令的删除文件的过程,怎么改?
OK, 我们先来写一个VBScript程序热热身.REM 输入并回显你的名字 \\'使用InputBox和Msgbox函数 Dim name,msg msg="请输入你的名字:"name=Inputbox(msg,"名称")Msgbox(name)把上面的程序清单输入到记事本里面, 然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行, 观察运行...

这个自动清理C盘垃圾的代码安全吗?
echo 清理系统分区根目录下回收站的文件完成!echo.echo 正在清理系统windows目录下的所有备份文件,请稍等...del \/f \/s \/q %windir%\\\\*.bak echo.echo 清理系统windows目录下的所有备份文件完成!echo.echo 正在清理系统windows\\\\prefetch\\\\目录下预读文件,请稍等...del \/f \/s \/q %windir%\\...

相似回答
大家正在搜