none
ELIMINAR ARCHIVO RRS feed

  • Pregunta

  • Hola compañero tengo una consulta. tengo una aplicacion web en ASP clasico en visual basic 6  que al momento de generar un reporte en PDF me lo genera y me lo crea en un carpeta hasta ahi todo bien.

    Mi consulta es que una vez que se lea ese archivo se borre.

    este es le codigo

     

    Sub Main()
    
    'Declaracion de Variables
    Dim NombreArchivo
    Dim Extension
    Dim DirectorioArchivo
    Dim ADOStream
    
    
    'Obtiene el nombre del archivo.
    NombreArchivo = Request.QueryString("NA")
    
    'Obtiene la extension del archivo.
    Extension = Right(NombreArchivo, 4)
    
    'Definimos el contenttype
    Select Case Extension
    Case ".txt"
     Response.ContentType = "text/html"
    Case ".pdf"
     Response.ContentType = "application/pdf"
    End Select
    
    'Obtiene la ruta del archivo.
    'gstrTEMPORAL_DIRECTORIO_SEGURO es una constante que declare en mi archivo .asa en donde defino la ruta
    
    
    
    DirectorioArchivo = gstrTEMPORAL_DIRECTORIO_SEGURO & NombreArchivo
    
    'Abre el Archivo
    Set ADOStream = CreateObject("ADODB.Stream")
    ADOStream.Open()
    ADOStream.Type = 1
    ADOStream.LoadFromFile(DirectorioArchivo)
    
    'Envia el contenido.
    Response.BinaryWrite ADOStream.Read()
    
    'Cierra el archivo.
    ADOStream.Close
    
    Set ADOStream = Nothing
    
    Response.flush
    Response.End
    
    End Sub
    

    Muchas gracias y espero su ayuda

    martes, 30 de agosto de 2011 21:31

Respuestas

  • Hola, hace muy poco tiempo tuve un problema similar.

    Te dire como lo solucione: Si el usuario se valida el sistema, lo que hago es que al crear el pdf lo nombro de la siguiente manera (si el usuario es PEPE):

    PEPE_01_09_2011_20_50_00.PDF

    De esta manera si PEPE en una sola sesión genera 4 PDF tendré algo similar a esto:

    PEPE_01_09_2011_20_50_00.PDF

    PEPE_01_09_2011_20_52_18.PDF

    PEPE_01_09_2011_20_54_20.PDF

    PEPE_01_09_2011_20_55_12.PDF

     

    De momento no me hace daño (de espacio físico) tener estos 4 ficheros en el servidor.

    Ahora bien, cuando PEPE inicia nuevamente la sesion en el sistema, realizado un borrado de todos los ficheros generados por pepe, tal que:

    KILL PEPE*.pdf

    Así de momento consigo tener mas o menos limpia la carpeta del servidor.

     

    Un saludo,

    Jesús Daryanani - GOPI

     

     

    • Marcado como respuesta JonaGuitar domingo, 9 de octubre de 2011 6:33
    jueves, 1 de septiembre de 2011 19:52