agosarat
08 de Marzo del 2006

Hola, me gustaría que alguien me pudiera ayudar en un problemilla que me acaba de salir.
Intento leer un archivo de texto linea a linea. He empezado con la ayuda a ver si encontraba algun ejemplo y cuando he copiado el siguiente y ejecutado la aplicación me da un error:
Sub Read_Files()
Dim fso As New FileSystemObject, txtfile, fil1 As File, ts As TextStream 'El error lo da en esta línea, dice que no se ha definido el tipo definido por el usuario
Set txtfile = fso.CreateTextFile("c:prueba.txt", True)
MsgBox "Escribiendo archivo"
' Escribe una línea.
Set fil1 = fso.GetFile("c:prueba.txt")
Set ts = fil1.OpenAsTextStream(ForWriting)
ts.Write "Hola a todos"
ts.Close
' Lee el contenido del archivo.
Set ts = fil1.OpenAsTextStream(ForReading)
s = ts.ReadLine
MsgBox s
ts.Close
End Sub

Muchas gracias