windows下删除过期的文件脚本

最新推荐文章于 2024-03-22 12:57:33 发布

cmg7893

最新推荐文章于 2024-03-22 12:57:33 发布

阅读量132

点赞数

文章标签：操作系统

调用：

c:delete_log.bat

=============content

cscript c:delete_log.vbs

=============

=======delete_log.vbs

'需要自定义3个常量 Delete_Log_Dir Delete_Long Delete_His_Record'
Option Explicit
Dim m_lngFileCount
Dim m_objFSO
Const Delete_Log_Dir="E:HH" '定义被删文件所在目录'
Command1_Click
Private Sub DelFolder(strPath)
Const ForReading = 1, ForAppending = 8
Const Delete_Long=2 '定义需要删除多少天前的日志'
Const Delete_His_Record="c:kxt_errlog_dehis.log" '定义记录删除的历史文件的文件'
Dim objFolder
Dim objFile
Dim objSubdirs
Dim objLoopFolder
Dim f_writelog
Set objFolder = m_objFSO.GetFolder(strPath)
Set f_writelog = m_objFSO.OpenTextFile(Delete_His_Record, ForAppending, True)
For Each objFile In objFolder.Files
If (DateDiff("d",CDate(objFile.DateCreated),Date)) >= Delete_Long Then
f_writelog.WriteLine objFile.Name & ":"& objFile.Size
objFile.Delete True
m_lngFileCount = m_lngFileCount + 1
End If
Next
f_writelog.WriteLine "ALL Delete log num:" & m_lngFileCount & " " &date
Set objFolder = Nothing
End Sub
Private Sub Command1_Click()
Set m_objFSO = CreateObject("Scripting.FileSystemObject")
m_lngFileCount = 0
DelFolder Delete_Log_Dir
End Sub