[VBScript] 自動刪除2小時以前生成的文件
阿新 • • 發佈：2017-10-12
name scrip str 生成 pac roo odi vbscrip logs
copy from http://www.cnblogs.com/MasterMonkInTemple/p/7655734.html
dim folder, file, mFSO, subfolder
Set mFSO = CreateObject("Scripting.FileSystemObject")
set folder=mFSO.GetFolder("C:\Users\msautotestuser\AppData\Local\Temp")
‘Delete files
dim df
For Each file In folder.files
‘df=DateDiff("h",file.DateCreated,Now) ‘Create Date
df=DateDiff("h",file.DateLastModified,Now) ‘Modify Date
If (df>2) Then ‘2 hours ago
‘MsgBox folder.path & "\" & file.Name & vbTab & file.DateCreated
‘MsgBox folder.path & "\" & file.Name & vbTab & file.DateLastModified
On Error Resume Next file.Delete()
End If
Next
‘Delete folders
set subfolder = Folder.subFolders
For Each file In subfolder
‘df=DateDiff("h",file.DateCreated,Now) ‘Create Date
df=DateDiff("h",file.DateLastModified,Now) ‘Modify Date
If (df>2) Then ‘2 hours ago
On Error Resume Next mFSO.deleteFolder(folder.path & "\" & file.Name)
end if
next
[VBScript] 自動刪除2小時以前生成的文件