Discussion :

[mddu66]

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 :

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

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 :

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

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 :

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

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 :

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...

[Sankasssss]

Bonjour,
tu devrais regarer au niveau de

Code :

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

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 :

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

1
2
OpenFileDialog1.ShowDialog()
Dim filename As String = OpenFileDialog1.FileName

[mddu66]

je te remercie maintenan ça fontionne bien

merci encore

[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 :

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

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.