Удаление файлов старше 5 дней кроме указанного по имени.

[Joni]

Мужики где найти или как написать? в скриптах полный ноль (((
Помогите пожалуйста.
Нужно так чтоб срабатывал фоново, никаких кнопок о продолжении итд. запустился из задания сделал свое дело и закрылся, Заранее спасибо! Запускать его буду из программы acronis функцией Pre/Post Command

[amel27]

Удаление файлов старше 5 дней кроме указанного по имени »
удалять где? в конкретной (жестко заданной) папке или в каталоге со скриптом? с подкаталогами или без?

[Ins_16]

Using Batch Files in Acronis True Image (http://kb.acronis.com/content/1742) вся операция подробно описана если туго с английским юзаем Google translate.
BAT manage files (http://www.acronis.com/r/support/en/kb/976/pre_l_i.htm) описаны операции с файлами с помощью скрипта, имеется пример.

[pers26]

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


ток надо доработать- чтоб нужные файлы оставлял

[alek2012]

Отлично работает скрипт.
Подскажите пожалуйста как в указанной папке удалять не только файлы, но и все каталоги которые в этой папке старше заданной даты?

[trampic]

Разрешите поделиться:


On Error Resume Next

'путь к общей папке
CommonPath = "E:\MULTIMEDIA"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Common = FSO.GetFolder(CommonPath)

'удаляем файлы
Set CommonItems = Common.Files
For Each i in CommonItems
If DateDiff("D", i.DateCreated, Now) > 10 Then
i.delete
End If
Next

'удаляем папки
Set CommonItems = Common.SubFolders
For Each i in CommonItems
If DateDiff("D", i.DateCreated, Now) > 10 Then
i.delete
End If
Next


Цифра 10 в указанном примере отвечает за количество дней, в течении которых файл не будет удаляться, с даты его создания.

[alek2012]

2 trampic Мега! Благодарю! То что нужно, простенько и понятно!

уже в планировщике)))