none
Error con FileSystemObject RRS feed

  • Pregunta

  • Buenas tardes:

    Mil disculpas si estoy ubicando la consulta en un foro incorrecto.  Hoy he notado, al empezar una pequeña rutina de lectura de archivos de texto usando ASP clásico, el siguiente error:

    Objeto Server error 'ASP 0177 : 800401f3'
    Error en Server.CreateObject
    /pruebas/leer.asp, línea 13
    800401f3

    El código ASP es el siguiente

    <%
    Const ForReading = 1
    Const Create = False
    Dim FSysObj
    Dim TS
    Dim strLine
    Dim strFileName

    'nombre del fichero a mostrar
    strFileName = Server.MapPath("test.txt")

    'Creación del objeto FileSystemObject
    Set FSysObj = Server.CreateObject("Scripting.FileSystemObject")

    ' Abrimos el fichero
    Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)

    If not TS.AtEndOfStream Then
    Response.Write "<FONT FACE=Verdana SIZE=1>"
    Do While not TS.AtendOfStream
    ' Leemos el fichero linea a linea y lo mostramos
    strLine = TS.ReadLine
    Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
    loop
    End If

    ' cerramos y destruimos los objetos
    TS.Close
    Set TS = Nothing
    Set FSysObj = Nothing
    %>

    la línea 13 es la marcada en negrita. He probado cambiar el MapPath a todas las combinaciones que se me han ocurrido, con ruta física y virtual y nada.  En algunos artículos de Microsoft hablan de registrar la dll  SCRRUN.DLL de esta forma

    Regsvr32.exe SCRRUN.DLL

    pero eso inclusive me manda un mensaje de eror 0x80004005 y me dice que  busque en Internet, pero no he logrado aclarar el punto. Lo curioso es que antes podía ejecutar rutinas de este tipo sin problema alguno, pero ahora ya no, e ignoro por que. 

    ¿Alguien podría darme una ayuda al respecto por favor?

    Un saludo cordial desde Lima, Perú

    jueves, 7 de noviembre de 2013 21:40