Utiliser FolderBrowserDialog en Visual Basic [Fermé]

Signaler
Messages postés
17
Date d'inscription
dimanche 12 octobre 2014
Statut
Membre
Dernière intervention
7 juin 2016
-
Messages postés
7418
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
15 juin 2021
-
Bonjour,

Dans mon code en visual basic, qui va créer un fichier texte, je demande à un moment ou l'enregistrer, pour cela j'ai créé un bouton qui doit ouvrir une fenêtre ( FolderBrowserDialog), on choisit le dossier ou en va l'enregistrer, jusque la tout est bon, sauf que je n'arrive pas à récupérer la variable avec le chemin.

Voici la partie du code utilisée :
Private Sub FolderBrowserDialog1_HelpRequest(sender As System.Object, e As System.EventArgs) Handles FolderBrowserDialog1.HelpRequest
Dim dlg As New FolderBrowserDialog()
If dlg.ShowDialog() = DialogResult.OK Then
Dim path As String = dlg.SelectedPath

End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
MsgBox("Le programme sera enregistré dans :" & path, )
End If

End Sub

1 réponse

Messages postés
7418
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
15 juin 2021
637
Bonjour,

Comme ceci:

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim chemin As String
        Dim dlg As New FolderBrowserDialog()
        With dlg
            .RootFolder = Environment.SpecialFolder.CommonPictures ' a adapter
            If .ShowDialog() = DialogResult.OK Then
                Dim path As String = .SelectedPath
                chemin = path & "\"
                MsgBox(chemin)
            Else
                MessageBox.Show("Opération annulée par l'utilisateur!", "Recherche dossier", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If
        End With
    End Sub