LPARAMETERS lcFileName LOCAL lcbuffer, lnresult, lcExe DECLARE INTEGER FindExecutable IN Shell32; STRING lpFile, STRING lpDirectory, STRING @lpResult lcbuffer = SPACE(200) lnresult = FindExecutable(lcFileName, "", @lcbuffer) IF lnresult > 32 lcExe = LEFT(lcBuffer, RAT(CHR(0), lcbuffer )-1) ELSE * Error or no association lcExe = "" ENDIF RETURN lcExe