Rush
Уже за тридцать... | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору alur2005 Цитата: есть скрипт который удаляет файлы старше 7 дней | Тут у тебя есть два момента: 1) Скрипт твой удаляет файлы старше 30 дней Код: FormatDateTime(Date - 30, 2) | 2) Он удаляет файлы измененные старше 30 дней назад Код: FormatDateTime(AFile.DateLastModified, 2) | Но если это тебя не смущает, то вот тебе скрипт, где не удаляются файлы нужных тебе чисел: Код: Dim FSO, WSH Dim TheFolder, TheFiles, AFile Set WSH = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set TheFolder = FSO.GetFolder("C:\BACKUP\") 'Каталог, откуда удалять Set TheFiles = TheFolder.Files For Each AFile In TheFiles If UCase(FSO.GetExtensionName(AFile.Path)) = "DAT" and _ FormatDateTime(AFile.DateLastModified, 2) < FormatDateTime(Date - 30, 2) Then select case day(FormatDateTime(AFile.DateLastModified, 2)) case 1, 8, 15, 22, 29 case else AFile.Delete end select End If Next | |