Jvalencia1998
26 de Abril del 2005

He creado una aplicación en VFP6, dentro de la cual tengo una rutina de informes, dentro del cual genero el informe en formato txt, lo que deseo es poder guardar este archivo en una determinada carpeta, con el comando GETFILE, me sale la caja de Abrir, con que comando me sale la caja de Guardar como
Saludos

Manuel
26 de Abril del 2005

PUTFILE([cTítuloDiálogo] [, cNombreArchivo] [, cExtensionesArchivo])

Ejemplo:

*Rutina que guarda el contenido de una tabla en un TXT
gcTableName = GETFILE(‘DBF’, ‘Abrir tabla:’)
USE (gcTableName)
gcDelimName = ALIAS( ) + ‘.DLM’

gcDelimFile = PUTFILE(‘Archivo delimitado:’, gcDelimName, ‘DLM’)

IF EMPTY(gcDelimFile) && Esc presionada
CANCEL
ENDIF
COPY TO (gcDelimFile) DELIMITED && Crea archivo delimitado
MODIFY FILE (gcDelimFile) NOEDIT