【VB.NET】「フォルダを選択する」ダイアログボックスを表示するには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、「フォルダを選択する」ダイアログボックスを表示する方法をご紹介します。

「フォルダを選択する」ダイアログボックスを表示する
- サンプルプログラム
関連記事

「フォルダを選択する」ダイアログボックスを表示する

「フォルダを選択する」ダイアログボックスを表示するには、FolderBrowserDialogクラスをインスタンス化します。
書式は、以下になります。

New FolderBrowserDialog()

ダイアログボックスを表示するには、ShowDialogメソッドを使います。
書式は、以下になります。

インスタンス化したFolderBrowserDialog.ShowDialog()

ダイアログボックスの主なプロパティは、以下表になります。

プロパティ	内容
Description	ダイアログボックスに表示する説明文。String型の値。
RootFolder	参照の開始位置のルートフォルダ。設定する値は、Environment.SpecialFolder列挙体。既定値は「Desktop」。
SelectedPath	選択されたパス。String型の値。
ShowNewFolderButton	「新しいフォルダ」ボタンを表示する場合は「True」（既定値）、表示しない場合は「False」。

サンプルプログラム

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Ret As DialogResult

        Try

            Using Dialog As New FolderBrowserDialog()

                With Dialog
                    .Description = "フォルダを選択してください。"
                End With

                Ret = Dialog.ShowDialog()

                If Ret = DialogResult.OK Then

                    Label1.Text = Dialog.SelectedPath

                End If

            End Using

        Catch ex As Exception

            Label1.Text = Err.Description

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim Ret As DialogResult

Try

Using Dialog As New FolderBrowserDialog()

With Dialog

.Description = "フォルダを選択してください。"

End With

Ret = Dialog.ShowDialog()

If Ret = DialogResult.OK Then

Label1.Text = Dialog.SelectedPath

End If

End Using

Catch ex As Exception

Label1.Text = Err.Description

End Try

End Sub

End Class

2	「フォルダを選択」ボタンクリック時に以下処理を行う。
8	「フォルダを選択する」ダイアログボックスのインスタンス化。（Usingステートメントでリソース開放を自動化）
10	ダイアログボックスの設定。
11	ダイアログボックスに表示する説明文「フォルダを選択してください。」を設定。
14	ダイアログボックスを表示する。
16	ダイアログボックスで「OK」ボタンが押された場合、
18	ダイアログボックスで選択したフォルダパスをラベルに表示。
24	処理の実行中にエラーが発生した場合、
26	エラー内容を取得し、ラベルに表示する。