drsheff777
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Доброго времени суток, вопрос следующего содержания. Вот скриптец, приведный несколько страниц назад... в закоментированной строке идет проверка, если файл старше 3х дней, то удалять. В папке "C:\UR\" лежит 2 файла, за 29.05 и 1.06, и почему-то скрипт убивате файл за 1.06, а 2й не трогает. Помогите разобраться, заранее премного благодарен. Dim FSO1, WSH1 Dim TheFolder1, TheFiles1, AFile1 Set WSH1 = CreateObject("WScript.Shell") Set FSO1 = CreateObject("Scripting.FileSystemObject") Set TheFolder1 = FSO1.GetFolder("C:\UR\") '==========Каталог, откуда удалять Set TheFiles1 = TheFolder1.Files For Each AFile1 In TheFiles1 'If FormatDateTime(AFile1.DateLastModified, 2) < FormatDateTime(Date-3, 2) Then AFile1.Delete Next |