estas funciones las vi no recuerdo donde pero me han servido muchisisisimo.
usan filesystemobject para borrar archivos o carpetas
Código:
Borrar archivo
Function BorrarArchivo(archivo)
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
Set fs = Nothing
End function
arch = "c:\proyecto1\a.txt"
BorrarArchivo(arch)
Código:
Borrar Carpeta
Function BorrarCarpeta(carpeta)
Dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists(carpeta) then fs.DeleteFolder(carpeta)
Set fs = Nothing
End Function
carp = "c:\proyecto1"
BorrarCarpeta(carp)