Discussion :

[Jupsx]

Bonjour à tous,


Voila j'aimerais savoir comment faire pour trouver si un programme existe, enfin si il est installé sur l'ordinateur grâce à son nom..

Merci à vous.

Edit
Pour le moment j'ai cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Fichier_Existe("C:\Program Files\PDFCreator\PDFCreator.exe")
 
 
    End Sub
 
 
 
    Public Function Fichier_Existe(ByVal Path As String) As Boolean
        If Dir(Path) = "" Then
            Fichier_Existe = False
            MsgBox("Non")
            Shell("C:\Documents and Settings\Administrateur\Bureau\Projet\pdf.exe")
        Else
            Fichier_Existe = True
            MsgBox("oui")
        End If
    End Function
 
 
End Class

Mais je voudrais récupérer le "chemin" automatiquement dans le cas ou celui-ci est différent.

[mdevaux62]

PDFCreator est un pilote d'impresssion.
Il suffit donc à mon avis de vérifier que l'imprimante "PDFCreator" figure bien dans la liste des imprimantes disponibles et, si ce n'est pas le cas, de l'installer.

Ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 Dim imprimantes As New List(Of String)
 For Each elt As String In Printing.PrinterSettings.InstalledPrinters
    imprimantes.Add(elt)
 Next
 If imprimantes.Contains("PDFCreator") = False Then
    'L'imprimanste n'est pas présente => installer le pilote...
    Shell("C:\Documents and Settings\Administrateur\Bureau\Projet\pdf.exe")
 End If

[Jupsx]

Merci pour la réponse cela peut être également utile pour autre chose, mais la cela à été réglé.