Erreur sur 'Annuler' d'un OpenFileDialog

Bonjour,

Je viens vers vous car impossible de comprendre le pourquoi du comment de l'erreur que me renvoi mon code.

Pour planter le décor, j'ai simplement un OpenFileDialog que j'appel afin d'ajouter un ou plusieurs fichiers à un listbox. Lorsque l'on valide, tout fonctionne correctement. Les fichiers sont bien copiés de le emplacement source evrs l'emplacement de destination, et ils apparaissent bien dans le listbox. Mais pour une obscure raison, lorsque je ne sélectionne pas de fichier (cartouche du nom de fichier vide du coup), et que je clic sur le bouton 'Annuler', mon try me renvoi le message d'erreur suivant :

"Un nom de fichier vide n'est pas autorisé
Nom du paramètre : sourceFileName"

Alors j'ai cherché ce qu'était ce sourcefilename, et je n'ai rien trouvé d'intéressant non plus.

Voici les attributs de mon OpenFileDialog :

Pièce jointe 158079

Je précise juste que le code suivant que j'utilise pour ouvrir le openfiledialog m'a déjà servi, tel quel, et je n'ai jamais eut cette erreur auparavant :

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 25 26 27 28 29 30 31 32 33 34 35 36 37

If lbl_console.Text <> "..." Then   openfile.ShowDialog()   'On gère le ou les fichiers sélectionnés If System.Windows.Forms.DialogResult.OK Then   'On lit les fichiers Dim fichier As String   For Each fichier In openfile.FileNames 'On ajoute les fichiers au répertoire de roms de la console choisie Try   File.Copy(fichier, cheminconsole & System.IO.Path.GetFileName(fichier), True)   lst_roms.Items.Clear()   Dim files = My.Computer.FileSystem.GetFiles(cheminconsole, FileIO.SearchOption.SearchAllSubDirectories, "*.*")   For Each rom As String In files resultat = IO.Path.GetFileName(rom) lst_roms.Items.Add(resultat) Next   Catch ex As Exception   ' On gère un éventuel problème MessageBox.Show("Une erreur est survenue lors de l'ajout. Le message est :" & vbCrLf & vbCrLf & ex.Message)   End Try   Next fichier   End If   End If

---

Donc si quelqu'un veut bien éclairer ma lanterne s'il-vous-plaît, cela m'aiderait grandement !

Merci d'avance pour vos réponses.

Cordialement,

--
Shennong

Bonsoir,

Car tu n'utilises pas la réponse correctement ici :

Code:

---

1 2 3 4 5 6

openfile.ShowDialog()   'On gère le ou les fichiers sélectionnés If System.Windows.Forms.DialogResult.OK Then '..... '......

---

Essayes ceci (en l'agrémentant à ta guise bien sur !) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Using _ofd As New OpenFileDialog With _ofd .Title = "Selectionnez un fichier (*.exe)" .Filter = "Executable|*.exe;*.exe" .CheckFileExists = True If .ShowDialog() = DialogResult.OK Then '.... '........... End If End With End Using

---

A+

Bonjour,

Tout d'abord, désolé si ma réponse en répète une autre déjà "arrivée", cela m'a pris un peu (beaucoup) de temps pour la rédiger.

Quand tu annules ta boîte de dialogue, tu ne récupères aucun nom de fichier et c'est pour cela que tu as une erreur.

Selon ce que tu as fait, ta boîte de dialogue retourne un "message" en se fermant Ton "message" peut avoir l'une ou l'autre des valeurs suivantes (elles sont toutes dans l'aide, rubrique :DialogResult, énumération) et tu peux utiliser un "IF" ou un "Select Case" pour le tester :

DialogResult.Abort
La valeur de retour à partir de la boîte de dialogue est Abort (généralement transmise par un bouton intitulé Abandonner).

DialogResult.Cancel
La valeur de retour à partir de la boîte de dialogue est Cancel (généralement transmise par un bouton intitulé Annuler).

DialogResult.Ignore
La valeur de retour à partir de la boîte de dialogue est Ignore (généralement transmise par un bouton intitulé Ignorer).

DialogResult.No
La valeur de retour à partir de la boîte de dialogue est No (généralement transmise par un bouton intitulé Non).

DialogResult.None
Nothing est retourné à partir de la boîte de dialogue. Cela signifie que l'exécution de la boîte de dialogue modale se poursuit.

DialogResult.OK
La valeur de retour à partir de la boîte de dialogue est OK (généralement transmise par un bouton intitulé OK).

DialogResult.Retry
La valeur de retour à partir de la boîte de dialogue est Retry (généralement transmise par un bouton intitulé Réessayer).

DialogResult.Yes
La valeur de retour à partir de la boîte de dialogue est Yes (généralement transmise par un bouton intitulé Oui).

Dans ton cas, je te dirais de tester avec:

Code:

---

1 2 3 4 5 6

Dim result As DialogResult = OpenFileDialog1.ShowDialog() If (result = DialogResult.OK) Then Ajouter le nom du fichier au ComboBox/Listbox else Quitter le programme ou recommencer la sélection end if

---

Merci à vous deux pour vos réponses très intéressantes. J'ai utilisé ta méthode Wallace1, et ça marche parfaitement bien !

En fait je me rend compte que j'utilisais mal ce contrôle. Il n'est pas aussi facile à gérer qu'il en a l'air.

J'ai compris ton code du premier coup d'oeil et effectivement c'était assez simple finalement, et j'ai compris mes erreurs.

Merci beaucoup pour ces informations !

À bientôt.

--
Shennong