Limpiar La carpeta De Archivos Temporales desde VBScript

Hola amigos hoy veremos un simple codigo en Vbscript para limpiar la carpeta de archivos temporales

bueno primero pasamos a declarar las variables a usar pero primero como forzar a declararlas todas la variables y como omitir todos los errores

option explicit 'para forzar a que se declaren todas las variables

on error resume next ' para que omita todos los errores por si alguna carpeta o archivo no se puede eliminar que lo omita

dim tempo,fso,car,ar 'aqui estan las variables a usar

bueno ahora creamos el objecto FileSystemObject y tambien mandamos obtener la ruta de la carpeta temporal

set fso=CreateObject("Scripting.FileSystemObject") 'crea el objecto FileSystemObject

set tempo=fso.GetSpecialFolder(2) 'obtiene la ruta de los archivos temporales

ahora crearemos los dos ciclos para borrar los archivos y carpetas

for Each car in tempo.SubFolders ' for que obtiene todas las subcarpetas

   fso.DeleteFolder car.path,True  'borra carpeta por carpeta obtenida

next ' fin del ciclo

for Each ar in tempo.Files  'obtiene archivo por archivo

   fso.DeleteFile ar.path,true   'borra cada archivo obtenido

next  'fin del ciclo

por ultimo mostramos un mensaje al usuario con el comando msgbox

msgbox "Limpiesa Completa"  'muestra un mensaje de que la limpiesa a sido completa

aqui el codigo completo

option explicit
on error resume next

dim tempo,fso,car,ar
set fso=CreateObject("Scripting.FileSystemObject")
set tempo=fso.GetSpecialFolder(2)

for Each car in tempo.SubFolders
   fso.DeleteFolder car.path,True
next

for Each ar in tempo.Files
   fso.DeleteFile ar.path,true
next

msgbox "Limpiesa Completa"

bueno espero les guste y les sirva a alguien saludos Flamer

Nota si quieren probar el codigo solo copean y pegan en el bloc de notas y aguardan con el nombre que quieran pero con la extencion .vbs