VBS，批处理BAT删除辅助目录下指定目录名称下的指定时间文件

公司需要删除多级目录下的相同目录文件. VBS确实比批处理好得多.

VBS，批处理BAT删除辅助目录下指定目录名称下的指定时间文件

VBS:

-------------

set f = createobject（“ scripting.filesystemobject”）

次清洁（p）

设置文件= f.getfolder（p）. 文件

如果不是（空（文件）和非空（文件））然后

文件中的每个fi

如果不是IsEmpty（fi）sh 删除文件夹，那么

如果（Date（）-fi.DateLastModified> 7）然后

fi.Delete

如果结束

如果结束

下一个

如果结束

结束子

Sub s（p）

= f.getfolder（p）的集合

set ofs = of.SubFolders

ofs中的每个osf

如果不是IsEmpty（osf），那么

如果StrComp（osf.Namesh 删除文件夹，“报告”）= 0，那么

clean（osf.Path）

其他

s（osf.Path）

如果结束

如果结束

下一个

结束子

s（“ c: \ users \ test \ desktop”）

-------------------------------

VBS调用安全软件删除文件:

--------------------

----------------

set f = createobject（“ scripting.filesystemobject”）

设置ws = CreateObject（“ wscript.shell”）

次清洁（p）

设置文件= f.getfolder（p）. 文件

如果不是（空（文件）和非空（文件））然后

文件中的每个fi

如果不是IsEmpty（fi），那么

如果（Date（）-fi.DateLastModified> 7）然后

ws.Run“ C: \ Users \ test \ Desktop \ sdelete.exe” + Chr（34）+ fi.Path + chr（34）

如果结束

如果结束

下一个

如果结束

结束子

Sub s（p）

= f.getfolder（p）的集合

set ofs = of.SubFolders

ofs中的每个osf

如果不是IsEmpty（osf），那么

如果StrComp（osf.Name，“报告”）= 0，那么

clean（osf.Path）

其他

s（osf.Path）

如果结束

如果结束

下一个

结束子

s（“ c: \ users \ test \ desktop”）

----------------------------------

s是指定的父目录

BAT批处理: （子目录下没有空格）

---------------------

@echo off

设置p = E: \测试\公司

设置sdelete = E: \测试\公司\ sdelete.exe

for / f“ delims =” %% a in（'dir％p％/ A: D / b'）做文件/ P％p％\ %% a \报告/ D-7 / C“ cmd / c％sdelete％@ path“

--------------------------------------------------- --------------------

---------

forfiles / p E: \ test \ company / s / d-10 / c“ cmd / c echo @path”

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shouji/article-146920-1.html