https://foro.gambas-es.org/viewtopic.php?f=1&t=1621&p=9430#p9430
-----------------------------------
Shell
Jueves, 19 May 2011, 08:57

Re: Error Al Abrir Fichero
-----------------------------------
Hola BrunoIV!.

Pues he probado tu código, abriendo dos archivos de texto y no da error.  :?: 

¿ Probaste abriéndolo con Open ?.

[code linenumbers=false syntax=gambas]
DIM hArchivo AS File
DIM sLineaEntrada AS String
DIM nombreArchivo AS String

Dialog.Filter = ["*.txt", "Text files"]
 IF Dialog.OpenFile() THEN 
    RETURN
 ELSE
    nombreArchivo = Dialog.Path    
    TxtNotepad.Clear
    OPEN NombreArchivo FOR READ AS #hArchivo
    WHILE NOT Eof(hArchivo)
      LINE INPUT #hArchivo, sLineaEntrada
       TxtNotepad.Text = TxtNotepad.Text & sLineaEntrada & "\r" & "\n"
    WEND
    CLOSE #hArchivo
 ENDIF
[/code]

El código es mas extenso.

Saludos.


