Crée un fichier Excel temporaire et utilise ceci. La fonction va meme te montrer ou se trouve Excel
DECLARE INTEGER FindExecutable IN shell32;
STRING lpFile, STRING lpDir, STRING @lpResult
lcResult = SPACE(250)
STRTOFILE("test","c:\daily.xls")
IF FindExecutable ("c:\daily.xls", "", @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
DELETE FILE c:\daily.xls
|