Время созданного "сейчас" файла меньше timenow на 4 часа

[KiselevSA]

Для удаления файлов по времени необходимо использовать не дату и время создания, а дату последней модификации.
Пример:
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.0
'
' NAME: Удаление устаревших файлов
'
' AUTHOR: ** , **
' DATE : 30.12.2005
'
' COMMENT:
'
'==========================================================================
Dim fso, WshShell
Dim oFolder, oFile
Const DPath = "Ваш путь"

Set fso = createobject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set oFolder = fso.GetFolder(DPath)
Set oFile = oFolder.Files
If (Not fso.FolderExists(DPath)) Then
WSH.Echo("Отсутствует директория или не назначен диск")
Else
For Each i In oFile
file = oFolder.Path & "\" & i.Name
If (i.DateLastModified < (Date - 15)) Then
fso.DeleteFile file, True
End If
Next
End If

[Gustav]

Цитата:

Сообщение от KiselevSA

необходимо использовать не дату и время создания, а дату последней модификации.

За примерчик спасибо, но я бы не был столь категоричным. Вопрос философский, и мы нашей маленькой творческой группой сейчас его обдумываем - какую именно из трех дат (Created, Modified или Accessed) взять за основу. Дело в том, что в подавляющем большинстве случаев пользователь не будет модифицировать созданный отчет (т.е. будет Modified = Created) , а вот несколько раз после создания посмотреть его вполне может (Accessed)...

[gl00mie]

Цитата:

Сообщение от Gustav

мы нашей маленькой творческой группой сейчас его обдумываем - какую именно из трех дат (Created, Modified или Accessed) взять за основу. в подавляющем большинстве случаев пользователь не будет модифицировать созданный отчет (т.е. будет Modified = Created) , а вот несколько раз после создания посмотреть его вполне может (Accessed)...

Achtung! Где хранятся эти самые отчеты, на клиенте? А то в свое время для ускорения работы NTFS еще под WinNT4 было популярно прописывание такой вот фишки в реестре:

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem]
"NtfsDisableLastAccessUpdate"=dword:00000001

со всеми вытекающими для рассматриваемого вопроса последствиями. Так что имеет смысл проконсультироваться с сисадминами или самостоятельно посмотреть, не прописано ли такое в реестре на машинах, где предполагается проводить чистки, либо использовать created или modified дату/время файла. И еще на счет last accessed надо учеть, что, к примеру, на FAT32 сохраняется только дата последнего доступа, а время там всегда нулевое. Впрочем, я искренне надеюсь, что FAT32 у вас нигде, кроме флэшек, не используется