Code: Select all
* Copy all input files and related files to Archive Folder
SET SAFETY OFF
com_Csv=ADDBS(com_ArchiveFolder)+FORCEEXT(JUSTFNAME(com_InputFilePath),"csv")
com_Hdr=FORCEEXT(com_Csv,"hdr")
COPY TO (com_Hdr) TYPE CSV FOR .F.
COPY TO (com_Csv) TYPE DELIMITED WITH "" WITH CHARACTER |
com_FileString1=FILETOSTR(com_Hdr)
com_FileString2=FILETOSTR(com_Csv)
=STRTOFILE(STRTRAN(com_FileString1,[,],[|]),com_Csv)
=STRTOFILE(com_FileString2,com_Csv,1)