程序代码:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With New FolderBrowserDialog()
.SelectedPath = "C:\Program Files"
.RootFolder = Environment.SpecialFolder.MyComputer
.ShowDialog()
MessageBox.Show(.SelectedPath)
End With
End Sub