* Version 1 * uses a default path lcPath = [c:\vaniermu\] lcSrcFName = [MyOriginalFile.txt] lcNewFName = INPUTBOX( [Filename] , [Define the name of the file] , [MyNewFile] , 0 , [] , [MyNewFile] ) lcNewFName = FORCEEXT( lcNewFName , JUSTEXT( lcSrcFName ) ) COPY FILE ( lcPath + lcSrcFName ) TO ( lcPath + lcNewFName ) *Version 2 * uses the path from the sourcefile lcSrcFName = [c:\vaniermu\MyOriginalFile.txt] lcNewFName = INPUTBOX( [Filename] , [Define the name of the file] , [MyNewFile] , 0 , [] , [MyNewFile] ) lcNewFName = FORCEEXT( lcNewFName , JUSTEXT( lcSrcFName ) ) COPY FILE ( lcSrcFName ) TO ( ADDBS( JUSTPATH( lcSrcFName ) ) + lcNewFName )>>Hi Karen,
>>lcSrcFName = [MyOriginalFile.txt] >>lcNewFName = INPUTBOX( [Filename] , [Define the name of the file] , [MyNewFile] , 0 , [] , [MyNewFile] ) >>lcNewFName = FORCEEXT( lcNewFName , JUSTEXT( lcSrcFName ) ) >>COPY FILE ( lcSrcFName ) TO ( lcNewFName ) >>>>
>>>@ 0,1 say "Re-Name File: " get fln >>>READ >>>fln = rtrim(fln) >>>COPY FILE m.txt to c:\vaniermu\&fln >>>>>
>>>@ 0,1 say "Re-Name File: " get fln >>>READ >>>fln = rtrim(fln) >>>COPY FILE m.txt to c:\vaniermu\&fln >>>>
>C:/MyOriginalFile.txt does not exist
>
>seems like the entry option does not translate to the new title i type in.