Eliminar ficheros del servidor con FSO


http://www.asptutor.com

Eliminar ficheros del servidor con FSO

 

  Ejemplo enviado desde www.elvalledeljerte.com 

Hola me gustaría enviaros un código para poder eliminar ficheros subidos con el upload q tenéis en la web publicado, pq he visto en muchos sitios que piden como hacerlo, pues bien aki os lo mando.
 
*local= nombre de la carpeta y el archivo a eliminar
osea, por ejemplo 
dentro del directorio casa
tenemos las carpetas micasa y mi coche
pues bien con este codigo lo q hacemos es eliminar el fichero q queramos en una carperta al azar (siempre q la carpeta tenga el archivo)
la ubicacion del archivo es C:\casa\micasa\yo.jpg
introducimos la pagina con estension ASP en el directorio casa
y le pasamos el parametro:
 
micasa/yo.jpg
 
desde un formulario
 
entonces lo elimina
el codigo es el siguiente
 
 
Dim fso, f2
  Set fso = CreateObject("Scripting.FileSystemObject")
  ' Obtener identificadores para la ubicación actual de los archivos.
  Set f2 = fso.GetFile(Server.MapPath("micasa\yo.jpg"))
  ' Eliminar los archivos.
  f2.Delete
  Response.Write "Terminado"%>
<p>EL PRODUCTO HA SIDO ELIMINADO</p>