|
Для удаления файлов по времени необходимо использовать не дату и время создания, а дату последней модификации.
Пример:
'==========================================================================
'
' 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
|