Utiliser FolderBrowserDialog en Visual Basic

Fermé
Avexo Messages postés 17 Date d'inscription dimanche 12 octobre 2014 Statut Membre Dernière intervention 7 juin 2016 - Modifié par Avexo le 19/12/2015 à 17:39
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 19 déc. 2015 à 18:39
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
A voir également:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 déc. 2015 à 18:39
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

0