Тема: VBS:Проверка файлов по дате изменения, с копированием при совпадении
Доброго времени суток! Задача состоит в следующем: Есть папка с файлами, надо все файлы в папке сравнить с заданным значением по параметру "дата изменения", при совпадении "даты изменения" с заданным значением копировать файл в определённую папку. Загвоздка в организации цикла перебора всех файлов в папке! Сам в написании ещё нуб, прошу о помощи=)
Dim oFolder
Dim oFile
Dim partdate
Dim FSO
Dim sdate
copypath = "d:\1\datacopy" 'куда копировать
Set FSO = CreateObject("Scripting.FileSystemObject")
oFolder = "D:\1\data" 'папка исходная
'значение прошлого дня
partdate = Day(Date)-1
sdate = CStr(partdate & "." & Month(date) & "." & Year(Date))
For each ofile in fso.GetFolder(oFolder).Files
'Проверка на соответствие дат
If sdate = CStr(ofile.datelastmodified) then
fso.copyfile ofile, copypath
else
wscript.echo "херас два!!"
end if
next