Для очистки каталога 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