Utiliser FolderBrowserDialog en Visual Basic
Avexo
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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 :
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:
- Vb folderbrowserdialog
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
1 réponse
Bonjour,
Comme ceci:
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