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