>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,'\\\','\\')
>

Why not just:

lcString= THIS.Value
DO WHILE ("\\"$lcString)
  lcString = STRTRAN(lcString,"\\","\")
ENDDO
THISFORM.DataDir = STRTRAN(lcString,"\","\\")