DECLARE INTEGER GetSystemDirectory IN kernel32; STRING @ lpBuffer,; INTEGER nSize lpBuffer = SPACE (250) nSizeRet = GetSystemDirectory (@lpBuffer, Len(lpBuffer)) IF nSizeRet <> 0 lpBuffer = SUBSTR (lpBuffer, 1, nSizeRet) ? lpBuffer ENDIFRetirado de http://www.news2news.com/vfp/?example=5&function=5