Удаление файлов старше 5 дней кроме указанного по имени.
Мужики где найти или как написать? в скриптах полный ноль (((
Помогите пожалуйста. Нужно так чтоб срабатывал фоново, никаких кнопок о продолжении итд. запустился из задания сделал свое дело и закрылся, Заранее спасибо! Запускать его буду из программы acronis функцией Pre/Post Command |
Цитата:
|
Using Batch Files in Acronis True Image вся операция подробно описана если туго с английским юзаем Google translate.
BAT manage files описаны операции с файлами с помощью скрипта, имеется пример. |
path = " "(папка из которой удаляешь файлы)
killdate = date() -5 arFiles = Array() set fso = createobject("scripting.filesystemobject") SelectFiles path, killdate, arFiles, true nDeleted = 0 for n = 0 to ubound(arFiles) on error resume next arFiles(n).delete true if err.number <> 0 then wscript.echo "Unable to delete: " & arFiles(n).path else nDeleted = nDeleted + 1 end if on error goto 0 next sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) on error resume next set folder = fso.getfolder(sPath) set files = folder.files for each file in files dtlastmodified = null on error resume Next dtlastmodified = file.datelastmodified on error goto 0 if not isnull(dtlastmodified) Then if dtlastmodified < vKillDate then count = ubound(arFilesToKill) + 1 redim preserve arFilesToKill(count) set arFilesToKill(count) = file end if end if next if bIncludeSubFolders then for each fldr in folder.subfolders SelectFiles fldr.path,vKillDate,arFilesToKill,true next end if end sub ток надо доработать- чтоб нужные файлы оставлял |
Отлично работает скрипт.
Подскажите пожалуйста как в указанной папке удалять не только файлы, но и все каталоги которые в этой папке старше заданной даты? |
Разрешите поделиться:
Код:
On Error Resume Next |
2 trampic Мега! Благодарю! То что нужно, простенько и понятно!
уже в планировщике))) |
Время: 23:21. |
Время: 23:21.
© OSzone.net 2001-