[VBScript] 自动删除2小时以前生成的文件

保存为deleteTempFiles.vbs，双击即可运行

dim folder, file, mFSO, subfolder
 
Set mFSO = CreateObject("Scripting.FileSystemObject")
set folder=mFSO.GetFolder("C:UsersmsautotestuserAppDataLocalTemp")
'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