Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fBrowser As New FolderBrowserDialog fBrowser.RootFolder = Environment.SpecialFolder.Desktop fBrowser.Description = "Sélectionnez un répertoire SVP" fBrowser.ShowDialog() If fBrowser.SelectedPath = String.Empty Then Label1.Text = "Pas de sélection" Else Label1.Text = fBrowser.SelectedPath End If fBrowser.Dispose() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question