>George,
>
>I think that is exactly what I am looking for. I would appreciate it if you could post the code.

>Thank you very much and thank you for your patience.

Lamar,

Here's code for the latter function. I haven't been able to figure out a way (yet) to use the former one.

DECLARE INTEGER GetDefaultUserProfileDirectory IN Userenv;
  STRING @lpProfileDir, INTEGER @lpcchSize
lnsize = 260
lcbuffer = SPACE(lnsize)
= GetDefaultUserProfileDirectory(@lcbuffer, @lnsize)
? LEFT(lcbuffer, lnsize - 1)