Function ulong GetCurrentDirectoryA (ulong textlen, ref string dirtext) library  "KERNEL32.DLL" 
Function boolean SetCurrentDirectoryA (ref string directoryname ) library  "KERNEL32.DLL" 

Ulong		lul_size =  2000  	
Ulong		lul_Rc
String	ls_CurrentDir, ls_dbfDirectory, ls_dbfDirectoryNew
ls_CurrentDir = Space (lul_size)
lul_rc = GetCurrentDirectoryA(lul_size, ls_CurrentDir)
if RegistryGet(gnv_app.of_GetUserKey(), "dbfDirectory" ,RegString!, ls_dbfDirectory) <  0  then
	ls_dbfDirectory =  ""
end if
if ls_dbfDirectory <> "  " then SetCurrentDirectoryA(ls_dbfDirectory)

li_Ret = GetFileOpenName(" Выберете файл ", ls_FullFileName, ls_FileName, " DBF ", " DBF Файлы (*.DBF),*.DBF ")

// Где оказались?
ls_dbfDirectoryNew = Space (lul_size)
lul_rc = GetCurrentDirectoryA(lul_size, ls_dbfDirectoryNew)
// Запишем в реестр на будущее
if ls_dbfDirectoryNew <> ls_dbfDirectory then
	RegistrySet(gnv_app.of_GetUserKey()," dbfDirectory",RegString!, ls_dbfDirectoryNew) 
end if
// Вернемся обратно
if ls_CurrentDir <> ls_dbfDirectoryNew then 
	SetCurrentDirectoryA(ls_CurrentDir)
end if