DECLARE INTEGER FindExecutable IN shell32;
    STRING lpFile, STRING lpDir, STRING @lpResult
 
lcResult = SPACE(250)
 
IF FindExecutable ("c:\MyDocuments\daily.doc", "", @lcResult) > 32
    lcResult = ALLTRIM(STRTRAN(lcResult, Chr(0), " "))
    ? lcResult
ELSE
    *    2 = ERROR_FILE_NOT_FOUND
    *    3 = ERROR_PATH_NOT_FOUND
    *   21 = ERROR_NOT_READY
    *  127 = ERROR_PROC_NOT_FOUND
    * 1008 = ERROR_NO_TOKEN
 
    DECLARE INTEGER GetLastError IN kernel32
    ? "Error code:", GetLastError()
ENDIF