mazou26
15 de Septiembre del 2003

Hola, como puedo coger el texto de un archivo txt (ejemplo.txt) y que me aparezca en text1

sdemingo
15 de Septiembre del 2003

Añade la referencia 'Microsoft Scripting Runtime'

Sub Ejemplo_Fichero()

Dim fso As New FileSystemObject
Dim txtfile As file
Dim fil1 As file
Dim ts As TextStream

' Creo un archivo de texto
fso.CreateTextFile "c:ejemplo.txt", True
MsgBox "Escribir en el Archivo"

' Escribo una línea
Set fil1 = fso.GetFile("c:ejemplo.txt")
Set ts = fil1.OpenAsTextStream(ForWriting)
ts.Write "Hola Mundo"
ts.Close

' Leo el contenido del archivo
Set ts = fil1.OpenAsTextStream(ForReading)
s = ts.ReadLine

MsgBox s
ts.Close

End Sub


Espero que te sirva

sdemingo

Juan
15 de Septiembre del 2003

Un apunte:
Si quieres leer todo el contenido del archivo utiliza
el método ReadAll en lugar de ReadLine.