自动删除超过10天的文件及文件夹的vbs代码


复制代码 代码如下:

option explicit
dim fpath,fso,logfile,fwrite
fpath=inputbox ("输入目标文件夹","文件处理器")
logfile="logfile.txt"
set fso=createobject("scripting.filesystemobject")
Set fwrite=fso.opentextfile(logfile,8,true)
getfilename fpath
fwrite.close
Set fso=Nothing
MsgBox "命令执行完成!"
function getfilename(path)
dim file,folder,sfolder,fname,subfolder,Files
if not fso.folderexists(path) then
set fso=nothing
msgbox "目标文件夹不存在!"
exit function
end if
set folder=fso.getfolder(path)
set files=folder.files
for each file in Files
fwrite.writeline path&"\"&file.name
If file.DateLastModified < Now - 10 Then '判断是否超过10天
fso.DeleteFile(file)
'Wscript.Echo file
End If
next
set subfolder=folder.subfolders
for each sfolder in subfolder
fwrite.writeline path&"\"&sfolder.name
If sfolder.DateCreated < Now - 10 Then '判断是否超过10天
fso.deletefolder(sfolder)
'Wscript.Echo file
End If
next
end function

将上面代码存为vbs文件即可使用。



相关阅读:
启动多个mysqld-HOWTO
一个不错的正则
vbs adox提取数据库表名和列名的类
用STRUTS实现国际化
SMTP协议-PHP的邮件发送程序例子
MySQL和SQLServer的比较
Windows环境下的PHP5与Apache服务器的配置
autoIMG 基于jquery的图片自适应插件代码
项目管理:交互-设计-制作三个角色的组合
js 禁用只读文本框获得焦点时的退格键
Mysql启动中 InnoDB: Error: log file ./ib_logfile0 is of different size 0 5242880 bytes 的问题
浅谈SQL SERVER 2005 之引用完整性
PHP教程.应用实例--1
innerHTML应用
快速导航

Copyright © 2016 phpStudy |