Удаление содержимого временного каталога Windows

Комментарии к коду:

• Все операции осуществляются через объект FileSystemObject.
• Полный путь ко временному каталогу Windows определяется через метод GetSpecialFolder. К сожалению, в отличие от функций SHGetSpecialFolderLocation и SHGetSpecialFolderPath, этот метод может вернуть пути только к трем каталогам: Windows, System и Temp.
• Перед тем, как удалить файл, скрипт обнуляет его атрибуты - чтобы можно было удалять read-only файлы.
• Обязательно нужно обеспечить обработку ошибок (On Error): как правило, во временном каталоге находятся несколько открытых на запись файлов, которые используются разными программами для хранения своих временных данных. Без обработчика ошибок скрипт завершит работу по ошибке доступа (Access denied) после попытки удалить первый же такой файл.

Листинг: deltemp.vbs

Option Explicit

Dim FSO
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim TempFolder
Set TempFolder = FSO.GetSpecialFolder(2)	' 2 = TEMP

On Error Resume Next

Dim Files, File
Set Files = TempFolder.Files
For Each File In Files
	File.Attributes = 0
	File.Delete
Next

Set FSO = Nothing