Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Доброе время Vladsn007 Разве что VBS скриптом - 10000 файлов за 15 с. Код: Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder("test") For Each File In Folder.Files If File.DateLastModified > DateValue("01.01.2014") Then File.Delete counter = counter + 1 : If counter mod 10000 = 0 Then If WshShell.Popup("Removed " & counter, 1, "File remover", 17)=2 Then Wscript.Quit Next MsgBox "Win" | Вместо "test" - полный путь к папке, которую нужно очистить. Прикрутил возможность прерывания - периодически на 2 с будет выскакивать окно с количеством удаленных файлов. Если нажать "Отмена" - удаление прервется. 9285 Не вопрос - 10000 файлов за 12 с find test -type f -newermt 2014-01-01 -delete |