Hola necesito ayuda con este codigo

[yonky_85]

Que tal eske tengo problema con este codigo que debe hacer una conexion para llamar al archivo "em_sec.dat"  si alguien me ayudara a tener una emjor idea para hacer llamadas a archivos ".dat" se loS agradeceria.

SALUDOS

Private Sub Form_Load()
        crlf$ = Chr(13) & Chr(10)
        Text1.Text = "c:\em_sec.txt"
        Open "C:EM_SEC.TXT" For Input As #1
        While Not EOF(1)
        Line Input #1, file_data$
        Text1.Text = Text1.Text & file_data$ & crlf$
        Wend
        Close #1
End Sub

[soplo]

hola

Text1.Text = "c:\em_sec.txt"
Open "C:EM_SEC.TXT" For Input As #1

eing

¿No sería mejor esto?

Código [Seleccionar] Expandir

Text1.Text = "c:\em_sec.txt"
Open TEXT1 For Input As #1

Respecto a lo que estas metiendo en text1 en ese bucle pues espero que tu lo entiendas porque yo no.

[NYlOn]

No estas poniendo \ entre C y :
Seria C:\EM_SEC.TXT
Y se puede reducir un poco el codigo:

Código [Seleccionar] Expandir


Private Sub Form_Load()
        Text1.Text = "c:\em_sec.txt"
        Open Text1 For Input As #1
        While Not EOF(1)
              Line Input #1, file_data$
              Text1.Text = Text1.Text & file_data$ & CrLf
        Wend
        Close #1
End Sub


Saludos.-