ABRIR ARCHIVO TXT
Publicado por Dacosta (1 intervención) el 27/06/2007 00:18:03
Hola!! tengo un problemita, cuando quiero abrir un archivo Txt me sale el siguiente error dice "El archivo 'dfropen.prg' no Existe".
Saben a que se debe este error.
Este el el codigo que hice, espero me puedan ayuda. Gracias
Event Start
&Camino = 'C:\archivo.txt'
EndEvent // Start
Event 'Leer_Archivo'
&i= DFROpen(&Camino)
DO case
case &i = 0
TXTmsj.Caption = 'Archivo Abierto'
case &i = -1
TXTmsj.Caption = 'Secuencia Incorrecta'
case &i = -2
TXTmsj.Caption = 'Error al abrir'
case &i = -8
TXTmsj.Caption = 'No hay Suficiente memoria'
EndCase
Msg('Fin de la Apertura')
EndEvent // 'Leer_Archivo'
Saben a que se debe este error.
Este el el codigo que hice, espero me puedan ayuda. Gracias
Event Start
&Camino = 'C:\archivo.txt'
EndEvent // Start
Event 'Leer_Archivo'
&i= DFROpen(&Camino)
DO case
case &i = 0
TXTmsj.Caption = 'Archivo Abierto'
case &i = -1
TXTmsj.Caption = 'Secuencia Incorrecta'
case &i = -2
TXTmsj.Caption = 'Error al abrir'
case &i = -8
TXTmsj.Caption = 'No hay Suficiente memoria'
EndCase
Msg('Fin de la Apertura')
EndEvent // 'Leer_Archivo'
Valora esta pregunta
0