>* 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 ) >>
>>>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.