16/01/2008, 07:14
|
 | Colaborador | | Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 4 meses Puntos: 126 | |
| Re: Borrar imagenes con filesystemobject
Prueba a eliminarlo así
Private Function EliminarArchivo(byval archivo)
Dim fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(archivo) then Exit Function
fs.DeleteFile(archivo)
End Function
Call EliminarArchivo(Server.MapPath("./"&rs.Fields("archivo_a_eliminar")&""))
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" /> |