FUNCTION long GetCurrentDirectoryA( long length , ref string path) &
LIBRARY "KERNEL32"

long ll_ret
string ls_path

ls_path = Space(250)
ll_ret = GetCurrentDirectoryA(250, ls_path)
IF ll_ret > 0 THEN
   ls_path = Left(ls_path,ll_ret)
   MessageBoxBox("", ls_path)
ELSE
   Messagebox("Error","Err GetCurrentDirectory " + String(ll_ret))
END IF