>Is there a way to test the extension of data entered.
>Here i ask if the operator wants to name the file but if the extension txt is not typed
>i would like the program to add it automatically. Any siggestons would be appreciated
>thanks K
>
>
>@ 0,1 say "Re-Name File: " get fln
>READ
>fln = rtrim(fln)
>COPY FILE m.txt to c:\vaniermu\&fln
>
Why you're writing DOS-style code?
Take a look at JUSTEXT() and FORCEEXT() functions in help.
fln = putfile('Rename File:',,'txt')
if empty(justext(fln))
fln = forceext(fln, 'txt')
endif
copy file m.txt to ('c:\Vaniermu\' + justfname(m.fln))
If it's not broken, fix it until it is.
My Blog