Переместить файлы старше x минут

Question

Я хочу, чтобы сценарий переместил все файлы (все расширения файлов *.*) старше 5 минут из папки INN и папки ERROR. В моем примере C:\CopyFlow\Directory test\Inn\ к C:\CopyFlow\Directory test\Inn\Error

Так что я понял, как перемещение файлов и как найти файлы старше х время после просмотра его. Howover, ставя это вместе, является проблемой для меня. Кто-нибудь знает, как я могу это прибить?

Это то, что я до сих пор ...

Dim age_threshold 
age_threshold = 5 
Dim folder_path 
folder_path = WScript.Arguments(0) 
Dim fso, f 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.getFolder(folder_path) 
Dim old_file_not_found 
old_file_found = 0 
For Each file in f.Files 
    Dim age 
    age = DateDiff("n", file.DateLastModified, Now) 
    If age > age_threshold Then 
    old_file_found = 1 
    .MoveFile "C:\CopyFlow\Directory test\Inn\*.*", "C:\CopyFlow\Directory test\Inn\Error" 
    Exit for 
    end if 
Next 
WScript.Quit 

Я привык к партии, так что это немного греческий для меня (источник http://www.evalesco.com/check-any-file-older-x-minutes-directory).

Теперь, где установить (dim?) Мою папку INN и ERROR в этом скрипте? И я уверен, что if age, за которым следует .movefile, неверно, поэтому мне, вероятно, нужна небольшая коррекция.

Update Что отсутствует в изображении обратная косая черта после ошибки (\error\) в move.file линии.

Answer 1

Вы не можете вызывать методы без объекта, предоставляющего метод, поэтому .MoveFile должен быть fso.MoveFile. Однако в его текущей форме скрипт будет перемещать все файлы с C:\CopyFlow\Directory test\Inn, если какой-либо из файлов в папке, переданной как аргумент скрипту, старше 5 минут.

Что вам нужно сделать, это передать C:\test\inn в качестве аргумента в сценарий, и двигаться только те файлы, которые на самом деле являются старше:

If age > age_threshold Then 
    file.Move "C:\test\inn\error\" 
End If