Вот простой пример контроля правильности введенного пути, его можно встроить в любую проседуру.

ContractPath = ALLTRIM(Thisform.Text1.value) && источник данных для проверки правильности ввода пути
WorkCdd = SYS(5)+SYS(2003)
DECLARE SHORT SetCurrentDirectory IN kernel32.dll string d
DECLARE integer GetLastError IN kernel32.dll
DECLARE integer SetErrorMode IN kernel32.dll integer d
= SetErrorMode(0x1)
pShell = CREATEOBJECT("WScript.Shell")
nYesDir = SetCurrentDirectory(ContractPath)
IF nYesDir = 0
MESSAGEBOX("Такой каталог не найден или у вас нет доступа.",16,"Отчеты")
ELSE
MESSAGEBOX("Путь к файлам отчетов указан верно.",64,"Отчеты")
ENDIF
CD (WorkCdd)
RELEASE pShell