ファイル関連：フォルダ選択ダイアログの使用例（FolderBrowserDialog）

VB2008でフォルダ選択を行うダイアログ、FolderBrowserDialogの使用例サンプルです。

ファイル関連へ


■実行画面
表示されたダイアログでフォルダを選択している画面
フォルダの参照画面

フォルダを選択するとフォルダ名がテキストボックスに表示されます。
再度、「フォルダダイアログ」ボタンをクリックすると、テキストボックスのフォルダが初期値でダイアログが表示されます。
フォルダ選択フォーム

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String
Dim fbd As New FolderBrowserDialog

fbd.Description = "フォルダ選択"
fbd.RootFolder = System.Environment.SpecialFolder.MyComputer
'初期フォルダ
path = TextBox1.Text
fbd.SelectedPath = path

'新しいフォルダの作成ボタンを表示させない場合
'fbd.ShowNewFolderButton = False

If fbd.ShowDialog() = DialogResult.OK Then
TextBox1.Text = fbd.SelectedPath
End If

fbd.Dispose()

End Sub

End Class

Visual Basic 2008 Express Edition実践入門