Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Drawing
Public Class MainClass
Shared Sub Main()
Dim dlgFolder As System.Windows.Forms.FolderBrowserDialog
dlgFolder = New System.Windows.Forms.FolderBrowserDialog
dlgFolder.SelectedPath = "C:\"
If dlgFolder.ShowDialog() = DialogResult.OK Then
Console.WriteLine( dlgFolder.SelectedPath)
End If
End Sub
End Class
|