Очистка директорий по расписанию

[Sergeln]

Для очистки каталога Temp стал использовать скрипт на VBS, при выполнении не видно, лишних вопросов тоже не задает, код корявый, но суть понятна

Нажмите здесь, чтобы увидеть текст полностью

'Скрипт для очистки каталога TEMP
'от устаревших временных файлов и
'каталогов. Временной период - 10 дней.
' sDIR - путь на ТЕМР.
' sDIR2 - путь на ТМР.
'Ложить в Автозагрузка/Startup
'
Set fso = CreateObject("Scripting.FileSystemObject")
sDIR="D:\Temp"
sDIR2="D:\Tmp"
sEXT="TMP"
fDate=Date-10
Set objDIR=fso.GetFolder(sDIR)
Set sf=objDIR.Files
Set fcf = objDIR.SubFolders
Set objDIR2=fso.GetFolder(sDIR2)
Set sf2=objDIR2.Files
Set fcf2 = objDIR2.SubFolders

On Error Resume Next
For Each efile in sf
fEXT=fso.GetExtensionName(efile)
if LCase(fEXT)=LCase(sEXT) Then
fso.DeleteFile(efile)
elseif efile.DateLastModified<fdate then
fso.DeleteFile(efile)
end if

next
For Each efile in sf2
fEXT=fso.GetExtensionName(efile)
if LCase(fEXT)=LCase(sEXT) Then
fso.DeleteFile(efile)
elseif efile.DateLastModified<fdate then
fso.DeleteFile(efile)
end if

next

For Each f1 in fcf
if f1.DateLastModified<fdate then
fso.Deletefolder(f1)
end if

next

For Each f2 in fcf2
if f2.DateLastModified<fdate then
fso.Deletefolder(f2)
end if

next
Err.Clear

[Borland]

Sergeln, тоже вариант...
Только мне лично проще в виндовый шедулер вставить задачу

pushd %TEMP% && rd /s /q .

Хватает раза в сутки, ночью...

[Alex Dark]

Сообщение от Borland

А самое страшное в имени файла - это "%" и "!"...

А ещё страшное это кавычки: открывающиеся и закрывающиеся. Получаются они когда сохраняют страничку из инета ни диск.
Проводник их жуёт, а вот FAR давится.

[Borland]

Сообщение от Alex Dark

FAR давится.

Неправда Ваша!
FAR умеет работать в UTF-8.
Даже cmd не "давится", если запускать с ключом "/u" (в Юникоде)...
См. аттачи...

[Alex Dark]

Не спорю, я не разбирался.
Когда сталкиваюсь с такой проблемой то просто жмякаю shif+enter и уже в эксплорере парюсь.

За наводку сенкс.