Imports System.Windows.Forms
public class FolderBrowserDialogProperty
public Shared Sub Main
Dim FolderBrowserDialog1 As FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog
With FolderBrowserDialog1
.RootFolder = Environment.SpecialFolder.CommonProgramFiles
.SelectedPath = "C:\Temp"
.ShowNewFolderButton = False
.Description = "Use the tree below to select a folder:"
End With
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Console.WriteLine(FolderBrowserDialog1.SelectedPath)
End If
End Sub
End class
|