Verificar si EXCEL esta instalado

[edufloriv]

Me pareció una buena idea la de verificar la existencia del ejecutable así que hice esto:

Code: Select all

PROC INIEXCEL

LOCAL cFolderOffice := GetProgramFilesFolder()+'\Microsoft Office\'
LOCAL nOffi

   IF HB_DirExists(cFolderOffice)
      FOR nOffi = 10 TO 20
         cFoldOffiX := cFolderOffice+'Office'+ALLTRIM(STR(nOffi))+'\'
         IF HB_DirExists(cFoldOffiX)
            cFileExcel := cFoldOffiX+'Excel.exe'
            IF FILE(cFileExcel)
               SYS_OFFICE := .T.   //<-- Esta es una variable pública que declaro al inicio.
               MsgInfo( 'Excel existe en '+cFileExcel )
               EXIT
            ENDIF
         ENDIF
      NEXT
   ENDIF

RETURN

Por ahora funciona y funcionará siempre y cuando Microsoft no decida cambiar los nombres de las carpetas en futuras versiones

Saludos cordiales a todos amigos.

[mol]

Very perspective function - till 20th version of M$ Office
Thanks for sharing!