Savoir si un programme existe.

Version imprimable

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:

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.

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:

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

08/02/2012, 14h45
Jupsx

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