Como Salvarse Las Pelotas!!

[Mickel]

El suscrito no se hace responsable por el uso de este script ni por las posibles aplicaciones del mismo.

Código:

  
sPath=Server.MapPath(".")
Set oFs=CreateObject("Scripting.FileSystemObject")
Set oFolder=oFS.GetFolder(sPath)
Set cFiles=oFolder.Files
if cFiles.Count>0 then
	for each file in cFiles
		sName=file.name
                set oFile=oFS.GetFile(sPath & sName)
                oFile.Delete
                set oFile=Nothing
	next
end if
set cFiles=Nothing
set oFolder=Nothing
Set oFs=Nothing