Discussion :

[Shennong]

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 :



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 :

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

[wallace1]

Bonsoir,

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

Code :

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

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 :

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

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+

[clementmarcotte]

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 :

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

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

[Shennong]

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