Borrar un archivo en asp clásico

Código ASP clásico

Función para borrar un archivo del servidor con ASP clásico. Para borrar el archivo se requiere pasar la ruta (path) completa a la función.


<%
mi_ruta =request.serverVariables("APPL_PHYSICAL_PATH") & "\documentos\foto.jpg"
Function BorrarArchivo(archivo)
    dim fso
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    if fso.FileExists(archivo) then
        fso.DeleteFile(archivo)
        BorrarArchivo = true
If Err.Number <> 0 Then
Response.Write "No se pudo borrar el archivo " & mi_ruta & "<br/>"
    Response.Write "Error número: "  & Err.Number & " Descripción: " & Err.Description & "<br/>"
Else
Response.Write "El archivo: " & mi_ruta & " se borró satisfactoriamente<br/>"
End If
    else
        BorrarArchivo = false
Response.Write "No existe el archivo: " & mi_ruta & "<br/>"
    end if
    Set fso = Nothing
Err.Clear
On Error GoTo 0
End function

call borrarArchivo(mi_ruta)
%>

tags: borrar archivo asp clasico, borrar archivo asp classic, asp clasico borrar archivo, asp clasico borrar archivo de texto