Probleme avec OpenFileDialog

Version imprimable

bonjour à tous,
Voila j'ai un soucis j'ai fait un bouton avec un OpenFileDialog
mais lorsque je selectionne mon programme par le biais du OFD cela me plante le programme (il me dit qu'il manque des fichiers).
mon premier essais

Code:

1
2
3
4
5
6
7
8
9
10
Dim filename As String = OpenFileDialog1.FileName
        Dim P As New System.Diagnostics.Process()
 
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "Installeur msi (*.msi)|*.msi|executable installeur (*.exe)|*.exe"
        OpenFileDialog1.ShowDialog()
 
        P.StartInfo.FileName = filename
        P.Start()
        P.Close()

mon Second essais

Code:

1
2
3
4
5
6
7
8
 
Dim filename As String = OpenFileDialog1.FileName
        Dim P As New System.Diagnostics.Process()
 
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "Installeur msi (*.msi)|*.msi|executable installeur (*.exe)|*.exe"
        OpenFileDialog1.ShowDialog()
Shell(filename, AppWinStyle.MaximizedFocus)

et puis en cherchant je suis tombé sur un autre code mais cela me mais un message d'erreur

Code:

1
2
3
4
5
6
7
8
 
 Dim filename As String = OpenFileDialog1.FileName
 
        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.Filter = "Lanceur batch (*.bat)|*.bat|executable (*.exe)|*.exe"
        OpenFileDialog1.ShowDialog()
 
        System.Diagnostics.Process.Start(filename)

et le message d'erreur me met :

Citation:

Aucune application n'est associée au fichier spécifié pour cette opération

voila j'espere que vous pourrez m'aider merci d'avance...

08/01/2011, 12h56
Sankasssss
Bonjour,
tu devrais regarer au niveau de

Code:

Dim filename As String = OpenFileDialog1.FileName

Celui-ci est mal placé.
Si tu met un point d'arret et que tu regarde la valeur, elle ne contient pas le nom du fichier que tu sélectionnes.
Pour ce faire tu dois mettre cette ligne après l'affichage de l'OpenFileDialog
Code:

1 2 OpenFileDialog1.ShowDialog() Dim filename As String = OpenFileDialog1.FileName
08/01/2011, 13h34
mddu66

je te remercie maintenan ça fontionne bien

merci encore:ccool:
08/01/2011, 13h44
StormimOn
Histoire de compléter un peu.

Il vaudrait mieux tester le retour de la méthode ShowDialog, indiquant si l'utilisateur a effectivement sélectionné un fichier (ou plusieurs). Car l'utilisateur peut abandonner après tout.
Code:

1 2 3 If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then ... End If
Penser à appeler la méthode Dispose de OpenFileDialog1 lorsqu'il ne sert plus, ou bien l'encadrer dans un bloc Using afin que cela soit géré automatiquement.