２．[フォルダーの参照]ダイアログボックスの使用方法(28_Dia_02)　(旧、SampleNo.078)

１．[フォルダーの参照]ダイアログボックスを表示しフォルダー名を取得 ２．初期表示フォルダーを設定して[フォルダーの参照]ダイアログボックスを表示 ３．その他、オプションを設定しての[フォルダーの参照]ダイアログボックスを表示 ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし 使用コン：Button1 / Button2 / Button3 / トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．[フォルダーの参照]ダイアログボックスを表示しフォルダー名を取得

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '[フォルダーの参照]ダイアログボックスを表示しフォルダー名を取得     'FolderBrowserDialog クラスのインスタンスを作成(ツールボックスから貼り付ける場合は必要ありません)     Dim FolderBrowserDialog1 As New FolderBrowserDialog     Dim folderPath As String = ""     If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         'フォルダー名を取得         folderPath = FolderBrowserDialog1.SelectedPath         MessageBox.Show(folderPath & " を選択しました")     End If     FolderBrowserDialog1.Dispose() End Sub

２．初期表示フォルダーを設定して[フォルダーの参照]ダイアログボックスを表示

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '初期表示フォルダーを設定して[フォルダーの参照]ダイアログボックスを表示     Dim FolderBrowserDialog1 As New FolderBrowserDialog     Dim folderPath As String = ""     'SelectedPath プロパティ : ユーザーが選択したパスを取得または設定     FolderBrowserDialog1.SelectedPath = Application.StartupPath     If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         'フォルダー名を取得         folderPath = FolderBrowserDialog1.SelectedPath         MessageBox.Show(folderPath & " を選択しました")     End If     FolderBrowserDialog1.Dispose() End Sub

３．その他、オプションを設定しての[フォルダーの参照]ダイアログボックスを表示

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'その他、オプションを設定しての[フォルダーの参照]ダイアログボックスを表示     Dim FolderBrowserDialog1 As New FolderBrowserDialog     Dim folderPath As String = ""     'RootFolder プロパティ　: 参照の開始位置とするルートフォルダーを取得または設定     'Environment.SpecialFolder の指定となります。     FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyDocuments     'Description プロパティ ： ダイアログボックスの上部に表示する説明テキストを取得または設定　     FolderBrowserDialog1.Description = "下記から希望のフォルダーを選択してください。"     'ダイアログボックスに[新しいフォルダーの作成]ボタンを表示しない場合は False 。 既定値は、true です。     FolderBrowserDialog1.ShowNewFolderButton = False     If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         'フォルダー名を取得         folderPath = FolderBrowserDialog1.SelectedPath         MessageBox.Show(folderPath & " を選択しました")     End If     FolderBrowserDialog1.Dispose() End Sub

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

ダイアログボックス　　Dialog Box　フォルダーの参照のダイアログボックス