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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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