Existence de l'installation de Excel sur une poste

vanessa

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