Поиграйся с этим:

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")
ContractPath = ALLTRIM(Thisform.Text1.value)
nYesDir = SetCurrentDirectory(ContractPath)
IF nYesDir = 0
MESSAGEBOX("Такого каталога не существует",16,"Папка")
ELSE
MESSAGEBOX("Путь к каталогу указан верно",64,"Папка")
ENDIF
CD (WorkCdd)
RELEASE pShell