Imports System.Windows.Forms
Public Class Tester
Public Shared Sub Main
Dim DirectoryBrowser As System.Windows.Forms.FolderBrowserDialog
DirectoryBrowser = New System.Windows.Forms.FolderBrowserDialog
DirectoryBrowser.Description = "Which directory do you want to use?"
If (DirectoryBrowser.ShowDialog() = Windows.Forms.DialogResult.OK) Then
Console.WriteLine(DirectoryBrowser.SelectedPath)
End If
End Sub
End Class
|