Copiar archivos
A ver si me puedes ayudar con esta otra consulta.
Tengo que copiar unos archivos de una carpeta a otra, uso COPY FILE, pero como los nombres de origen y de destino contienen espacios me da problemas. Uso dos variables una de origen y una de destino y les asigno los caminos donde esta los archivos y a donde los quiero copiar, pero el problema esta en que con los espacios me da un error y tengo que usar las variables pues la carpetas pueden variar según donde se instale la aplicación. ¿Cómo podría hacer esto?. Un saludo y muchas gracias.
Tengo que copiar unos archivos de una carpeta a otra, uso COPY FILE, pero como los nombres de origen y de destino contienen espacios me da problemas. Uso dos variables una de origen y una de destino y les asigno los caminos donde esta los archivos y a donde los quiero copiar, pero el problema esta en que con los espacios me da un error y tengo que usar las variables pues la carpetas pueden variar según donde se instale la aplicación. ¿Cómo podría hacer esto?. Un saludo y muchas gracias.
Respuesta de jorgeamg
1
gcDelimName = ALIAS( ) + '.XLS'
gcDelimFile = PUTFILE('Nombre de archivo:', nom, 'XLS')
IF EMPTY(gcDelimFile) && Esc presionada
RETURN
ENDIF
COPY TO (gcDelimFile) TYPE XL5
Bueno así es como yo lo haría.
gcDelimFile = PUTFILE('Nombre de archivo:', nom, 'XLS')
IF EMPTY(gcDelimFile) && Esc presionada
RETURN
ENDIF
COPY TO (gcDelimFile) TYPE XL5
Bueno así es como yo lo haría.
