Ayuda por favor

[francog]

Eliminar Archivo y subFolder de una carpeta
----------------------------------------

DirTemp = Request.ServerVariables("APPL_PHYSICAL_PATH&q uot;) & "\Admin\Documentos\Temp"

Dim fs, f, f1, fc, s
Set fs = Server.CreateObject("Scripting.FileSystemObje ct")
Set f = fs.GetFolder(DirTemp)
Set fc = f.Files

For Each f1 in fc
Response.Write f1.delete
Next

Set fc = f.SubFolders

For Each f1 in fc
Response.Write f1.delete
Next

Session("VarTemp") = "0"

Set fc = Nothing
Set f = Nothing

espero que te sirva, te recomiendo que busques ejempos en search.microsoft.com y que busques por FSO (File System Objects)