Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim options As Integer = &H40 + &H200 + &H20 options += &H10 '' Adds edit box Dim shell = New Shell32.ShellClass Dim root = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) Dim folder = CType(shell.BrowseForFolder(CInt(Me.Handle), _ "Select folder", options, root), Shell32.Folder2) If folder IsNot Nothing Then MsgBox("You selected " + folder.Self.Path) End If
End Sub