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