Удалить старые файлы (по времени созд., измен., открыт.)

В этом разделе размещены плагины и дополнительные утилиты.
Ответить
avmaksimov
Ас
Сообщения: 907
Зарегистрирован: Чт май 08, 2008 2:48 pm
Откуда: г. Москва, Россия
Благодарил (а): 6 раз
Поблагодарили: 16 раз
Контактная информация:

Удалить старые файлы (по времени созд., измен., открыт.)

Сообщение avmaksimov » Вс окт 25, 2009 12:56 pm

Расширил функционал существующего плагина тем, что можно оставлять старые файлы не по дате создания, а по максимальному из дат: создания, изменения, доступа.
Полезно, если файл хранится до тех пор, пока к нему не было доступа или он не изменялся.
Это может быть полезно для временных папок, куда можно запихивать разных хлам (например, скаченный из Интернета или из почты и т.д.) и удалять его, если к нему "пропал" интерес или нужную программу установили, документ распечатали и т.д.... Если поставить, что сохранять 14 дней (как у меня), то в течении 14 дней ничего с файлом не случится.

Надеюсь, это кому-нибудь, кроме меня будет полезно, а быть может это будет включено в стандартную поставку (для этого в RunTime мои изменения отмечены тегом "avmaksimov").

Пишите, если что не так. :)
Вложения
avmaksimov_DelOlFilesEx.spm
(26.94 КБ) 792 скачивания
С уважением, Андрей.

Аватара пользователя
Alex
Ас
Сообщения: 2833
Зарегистрирован: Вт апр 05, 2005 3:28 pm
Откуда: Kaliningrad City
Благодарил (а): 2 раза
Поблагодарили: 91 раз
Контактная информация:

Re: Удалить старые файлы (по времени созд., измен., открыт.)

Сообщение Alex » Вс окт 25, 2009 2:42 pm

Спасибо, внес аналогичные изменения в основной пакет программы.
За это сообщение автора Alex поблагодарил:
avmaksimov (Вс окт 25, 2009 2:42 pm)
Рейтинг: 33.33%

avmaksimov
Ас
Сообщения: 907
Зарегистрирован: Чт май 08, 2008 2:48 pm
Откуда: г. Москва, Россия
Благодарил (а): 6 раз
Поблагодарили: 16 раз
Контактная информация:

Re: Удалить старые файлы (по времени созд., измен., открыт.)

Сообщение avmaksimov » Вс окт 25, 2009 6:51 pm

Спасибо!

Кстати, это мой второй внутренний вариант)))... Первый вариант был с тем, чтобы можно было выбирать, по какому дате-времени сравнивать: создания, изменения или доступа...

Еще раз, кстати, было бы неплохо заменить GetFileProperties чем-нибудь вроде GetFileWrDate и GetFileAcDate ...
С уважением, Андрей.

avmaksimov
Ас
Сообщения: 907
Зарегистрирован: Чт май 08, 2008 2:48 pm
Откуда: г. Москва, Россия
Благодарил (а): 6 раз
Поблагодарили: 16 раз
Контактная информация:

Re: Удалить старые файлы (по времени созд., измен., открыт.)

Сообщение avmaksimov » Вс июн 13, 2010 8:39 pm

Внес небольшие изменения:
1) если невозможно удалить файл, то пишется причина (например, "Отказано в доступе" - полчаса не мог понять, почему не работало, уже и код анализировал и проверял работу плагина...);
2) если включен детальный лог, то теперь пишется в случае установки галочки "created, changed or accessed" такое же сообщение в лог файл, вместо "created"; если галочка не стоит, то все отображается по старому.

Во вложении первоначально измененный мной файл (правда, не тестированный) и измененный, проверенный FileSystem.spm.
Вложения
avmaksimov_DelOlFilesEx.spm
(26.85 КБ) 656 скачиваний
FileSystem.zip
(45.41 КБ) 621 скачивание
С уважением, Андрей.

Аватара пользователя
Alex
Ас
Сообщения: 2833
Зарегистрирован: Вт апр 05, 2005 3:28 pm
Откуда: Kaliningrad City
Благодарил (а): 2 раза
Поблагодарили: 91 раз
Контактная информация:

Re: Удалить старые файлы (по времени созд., измен., открыт.)

Сообщение Alex » Вс окт 24, 2010 9:52 pm

Нашел небольшой глюк в этом действии.
В цикле

Код: Выделить всё

for i:=0 to SL.Count-1 do
    begin
надо ставить

Код: Выделить всё

Leave:=False;

avmaksimov
Ас
Сообщения: 907
Зарегистрирован: Чт май 08, 2008 2:48 pm
Откуда: г. Москва, Россия
Благодарил (а): 6 раз
Поблагодарили: 16 раз
Контактная информация:

Re: Удалить старые файлы (по времени созд., измен., открыт.)

Сообщение avmaksimov » Сб мар 19, 2011 11:09 am

К слову, не мой :).
С уважением, Андрей.

Ответить

Вернуться в «Плагины и программы-дополнения»