Existance Dossier Office/OpenOffice

Résolu
Signaler
Messages postés
4
Date d'inscription
mercredi 9 janvier 2008
Statut
Membre
Dernière intervention
27 février 2008
-
Messages postés
4
Date d'inscription
mercredi 9 janvier 2008
Statut
Membre
Dernière intervention
27 février 2008
-
Bonjour.
Je suis actuellement en stage et j'ai créé un programme en VB6 qui utilise un tableur.
J'ai créé le code de telle façon qu'il puisse fonctionner avec Office et OpenOffice.
Pour savoir lequel des 2 tableurs lancer, je veux vérifier l'existance des dossiers "Office" et OpenOffice.org" dans Program Files.
Le problème est que le nom de ces deux dossiers comprend le numéro de version (exemple : Office10, Office12, OpenOffice.org 2.0, OpenOffice.org 2.3,...).
J'aimerais donc trouver une méthode pour vérifier la présence de ces dossiers sans avoir à noter tous les numéros de version dans la condition (Office9 Or Office10 Or ...).

Voilà si vous avez une idée, n'hésitez pas.

3 réponses

Messages postés
4
Date d'inscription
mercredi 9 janvier 2008
Statut
Membre
Dernière intervention
27 février 2008

Bon j'ai trouvé d'ou venait le problème, c'était tout simple en fait.
Voilà le code corrigé : 

    Dim rep As String
    rep = Dir("c:\Program Files\Microsoft Office\Office*, vbDirectory")
    If rep <> "" Then
        MsgBox rep
    Else
        rep = Dir("c:\Program Files\OpenOffice.org*", vbDirectory)
        If rep <> "" Then
            MsgBox rep
        Else
            MsgBox "Rien"
        End If
    End If
    End
Messages postés
200
Date d'inscription
mardi 17 octobre 2006
Statut
Membre
Dernière intervention
24 mars 2012
2
Salut,

Une solution pourraît être de parcourir le répertoire program files et de récupéré tous les répertoire contenant le mot "Office". Et pour finir tu stocke dans une collection ou un tableau tous tes chemins.

Par exemple (désolé c'est du .Net)
Dim Collect as new collection

'Parcour les répertoires

For
Each Repertoire
As
String
In Directory.GetDirectories("C:\Program Files")

   If Repertoire.contains("Office")

      Collect.add(Repertoire)

   End If

NextA chaque fois que tu vas stocker la variable Repertoire, tu enregistres ("C:\Program Files\Office10") par exemple.

J'espère t'avoir aidé.
Messages postés
4
Date d'inscription
mercredi 9 janvier 2008
Statut
Membre
Dernière intervention
27 février 2008

Bon j'ai réussi à trouver un système mais il ne fonctionne qu'à moitié : en effet il arrive à détecter quand OpenOffice est installé mais pas Office.
Je n'arrive pas à trouver mon erreur :

    Dim rep As String
    rep = Dir("c:\Program Files\Microsoft Office\Office*")
    If rep <> "" Then
        MsgBox rep
    Else
        rep = Dir("c:\Program Files\OpenOffice.org*", vbDirectory)
        If rep <> "" Then
            MsgBox rep
        Else
            MsgBox "Rien"
        End If
    End If
    End