>>I need to make sure that there are two slashes only in a textbox value. It usually would start with only 1 slash, so it would be increased to two, but over time it was replacing the doubles with 4, etc. This code in the LostFocus seems to work, but I know it's not the best way. Any ideas? Thanks!
>>
>>

>>THISFORM.DataDir = STRTRAN(THIS.Value,'\','\\')
>>THISFORM.DataDir = STRTRAN(THIS.Value,'\\\','\\')
>>

>Could you use the Foxtools REDUCE() function????

>&& Step by Step
>lcTemp = THIS.value
>lcTemp = CHRTRAN(lcTemp," ",CHR(255))  && Keep all the current spaces
>lcTemp = REDUCE(lcTemp,"\")  && Convert all contiguous \ to space
>lcTemp = STRTRAN(lcTemp," ","\\")  && Convert space to \\
>lcTemp = CHRTRAN(lcTemp,CHR(255)," ")  && Restore the spaces
>
>
>
>Thisform.DataDir = CHRTRAN(STRTRAN(REDUCE(CHRTRAN(this.value," ",CHR(255)),"\")," ","\\"),CHR(255)," ")

I was actually also thinking about reduce, but without having VFP on this PC I can only try in my mind and it was not enough to create the full solution.