一个可以删除指定天数文件的vbs脚本
更新时间：2007年02月26日 00:00:00 作者：
复制代码 代码如下:
Const FilePath = "E:\log" '定义目录
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(filepath)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set Files = subfolder.Files
If Files.Count <> 0 Then
For Each File In Files
If File.DateLastModified < Now - 30 Then '判断是否超过30天
FSO.DeleteFile(Subfolder.Path & "\" & File.Name) '删除
'Wscript.Echo Subfolder.Path & "\" & File.Name '显示
End If
Next
End If
ShowSubFolders Subfolder
Next
End Sub
相关文章
VBS教程：属性-CompareMode 属性...2006-11-11
这篇文章主要介绍了VBS调用WMI遍历搜索硬盘文件并计数的方法,需要的朋友可以参考下2016-10-10
VBS教程：属性-TotalSize 属性...2006-11-11
本文给大家分享的是VBS通过WMI获取CPU的使用率的方法，十分的简单实用，有需要的小伙伴可以参考下。2015-05-05
VBS基础篇 vbscript Sendkeys模拟键盘操作
在vbscript中我们可以object.SendKeys模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，,需要的朋友可以参考下2018-06-06
这个cmdshell需要结合nc进行配合使用，现在肉鸡上执行cmdshell然后在本地上面运行nc，注意看下面的参数2013-07-07
vbs实现压缩功能的代码2008-02-02
有时候我们需要获取当前目录下所有文件夹的名字，那么就可以参考下面的代码了2013-09-09
用vbscript实现系统的重启，其实就是用vbscript执行系统下的shutdown.exe实现，汗2008-06-06
vbScript on error resume next容错使用心得
在vbscript中，使用on error resume next处理错误，当使用这段代码时，程序将忽略产生的错误继续运行后面的代码。本文就使用心得作个小结，供有需要的朋友参考2009-02-02
最新评论