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

Posted 2020-10-10 kill0001000

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