Imports System.Windows.Forms
Public Class FolderBrowser
Inherits System.Windows.Forms.Design.FolderNameEditor
Public Shared Function ShowDialog() As String
Dim fb As New FolderBrowser()
'对话框的title
fb.Description = "Select a Directory to Scan"
'默认是系统的桌面目录
fb.StartLocation = Design.FolderNameEditor.FolderBrowserFolder.Desktop
'对话框的样式
fb.Style = Design.FolderNameEditor.FolderBrowserStyles.ShowTextBox
fb.ShowDialog()
Return fb.DirectoryPath
End Function
End Class |