我正在尝试浏览文件夹并检查访问日期,如果访问日期超过 5 天,我需要将其移至“test2”文件夹,并且运行时没有收到任何错误消息。以下是我到目前为止所拥有的,有人能指出我正确的方向吗,我在 Stack 上只能找到执行此操作的 powershell 脚本。
Set oFileSys = WScript.CreateObject("Scripting.FileSystemObject")
sRoot = "C:\test"
today = Date
nMaxFileAge = 5
MoveFiles(sRoot)
Function MoveFiles(ByVal sFolder)
Set oFolder = oFileSys.GetFolder(sFolder)
Set aFiles = oFolder.Files
For Each file in aFiles
FileAccessed = FormatDateTime(file.DateLastAccessed, "2")
If DateDiff("d", FileAccessed, today) > nMaxFileAge Then
oFileSys.MoveFile sFolder, "C:\test2"
End If
Next
End Function