*----------------------------------------
* Проверка наличия каталога
*
Function testdir
Lparameter dr
Local cdd, rt
Declare short SetCurrentDirectory IN kernel32.DLL STRING d
Declare INTEGER GetLastError IN kernel32.DLL
Declare INTEGER SetErrorMode IN kernel32.DLL INTEGER d
d=0x1
=SetErrorMode(d)
cdd=SYS(5)+SYS(2003)
rt=SetCurrentDirectory(dr)
Cd (cdd)
If rt=0
Return .F.
Else
Return .T.
Endif
Endfunc