フォルダの選択ダイアログを表示する

下図のような「フォルダの選択」ダイアログを表示する方法を紹介します。

.NET Framework 1.1以降

.NET Framework 1.1以降ではFolderBrowserDialogクラスを使用して表示します。まずはこの方法から説明します。

次の例ではルートフォルダをデスクトップ、始めに選択されているフォルダを"C:\Windows"として「フォルダの選択」ダイアログを表示しています。また、ユーザーが新しいフォルダを作成できるように「新しいフォルダ」ボタンが表示されるようにしています。

VB.NET

コードを隠すコードを選択

'FolderBrowserDialogクラスのインスタンスを作成
Dim fbd As New FolderBrowserDialog

'上部に表示する説明テキストを指定する
fbd.Description = "フォルダを指定してください。"
'ルートフォルダを指定する
'デフォルトでDesktop
fbd.RootFolder = Environment.SpecialFolder.Desktop
'最初に選択するフォルダを指定する
'RootFolder以下にあるフォルダである必要がある
fbd.SelectedPath = "C:\Windows"
'ユーザーが新しいフォルダを作成できるようにする
'デフォルトでTrue
fbd.ShowNewFolderButton = True

'ダイアログを表示する
If fbd.ShowDialog(Me) = DialogResult.OK Then
    '選択されたフォルダを表示する
    Console.WriteLine(fbd.SelectedPath)
End If

コードを隠すコードを選択

//FolderBrowserDialogクラスのインスタンスを作成
FolderBrowserDialog fbd = new FolderBrowserDialog();

//上部に表示する説明テキストを指定する
fbd.Description = "フォルダを指定してください。";
//ルートフォルダを指定する
//デフォルトでDesktop
fbd.RootFolder = Environment.SpecialFolder.Desktop;
//最初に選択するフォルダを指定する
//RootFolder以下にあるフォルダである必要がある
fbd.SelectedPath = @"C:\Windows";
//ユーザーが新しいフォルダを作成できるようにする
//デフォルトでTrue
fbd.ShowNewFolderButton = true;

//ダイアログを表示する
if (fbd.ShowDialog(this) == DialogResult.OK)
{
    //選択されたフォルダを表示する
    Console.WriteLine(fbd.SelectedPath);
}

.NET Framework 1.0

.NET Framework 1.0では次のような方法により、「フォルダの選択」ダイアログの表示が可能になります。

まず、「参照設定」に「System.Design.dll」を追加し、さらに次のようなクラスを作ります。

VB.NET

コードを隠すコードを選択

Public Class BrowseFolder
    Inherits System.Windows.Forms.Design.FolderNameEditor
    Dim fb As New System.Windows.Forms.Design.FolderNameEditor.FolderBrowser()
    Public Function BrowseDialog(ByVal description As String, _
            ByVal owner As Form) As String
        '説明を指定
        fb.Description = description
        'はじめのフォルダを指定
        fb.StartLocation = _
            System.Windows.Forms.Design.FolderNameEditor.FolderBrowserFolder.Desktop
        'スタイルを指定
        fb.Style = _
            System.Windows.Forms.Design.FolderNameEditor.FolderBrowserStyles.RestrictToDomain
        If fb.ShowDialog(owner) = DialogResult.OK Then
            Return fb.DirectoryPath
        Else
            Return String.Empty
        End If
    End Function
End Class

コードを隠すコードを選択

public class BrowseFolder : System.Windows.Forms.Design.FolderNameEditor
{
    System.Windows.Forms.Design.FolderNameEditor.FolderBrowser fb =
        new System.Windows.Forms.Design.FolderNameEditor.FolderBrowser();
    public string BrowseDialog(string description, Form owner)
    {
        //説明を指定
        fb.Description = description;
        //はじめのフォルダを指定
        fb.StartLocation =
            System.Windows.Forms.Design.FolderNameEditor.FolderBrowserFolder.Desktop;
        //スタイルを指定
        fb.Style =
            System.Windows.Forms.Design.FolderNameEditor.FolderBrowserStyles.RestrictToDomain;
        if (fb.ShowDialog(owner) == DialogResult.OK)
        {
            return fb.DirectoryPath;
        }
        else
        {
            return string.Empty;
        }
    }
}

実際に「フォルダの選択」ダイアログを表示するには次のようなコードを書きます。ここではダイアログを表示し、選択されたフォルダのパスをコンソールに表示します。

VB.NET

コードを隠すコードを選択

Dim f As New BrowseFolder()
Console.WriteLine(f.BrowseDialog("フォルダを指定してください。", Me))

コードを隠すコードを選択

BrowseFolder f = new BrowseFolder();
Console.WriteLine(f.BrowseDialog("フォルダを指定してください。", this));

ただしこの方法でははじめに表示するフォルダにはStartLocationプロパティに指定できるフォルダ以外のフォルダを指定することは出来ないようです。

Win32 APIのSHBrowseForFolderによる方法

さらに、Win32 APIのSHBrowseForFolderを使用した例がマイクロソフトのページにあります。

注意：この記事では、基本的な事柄の説明が省略されているかもしれません。初心者の方は、特に以下の点にご注意ください。

「???を参照に追加します」の意味が分からないという方は、こちらをご覧ください。
Windows Vista以降でUACが有効になっていると、ファイルへの書き込みに失敗する可能性があります。詳しくは、こちらをご覧ください。
.NET Tipsをご利用いただく際は、注意事項をお守りください。

共有する

この記事への評価

良い / 悪い = 83 / 10

この記事へのコメント

ShowNewFolderButtonプロパティをfalseにすると｢新しいフォルダの作成｣ボタンは表示されませんが
、ALT+Nで新しいフォルダが追加されてしまうのはバグなんでしょうか。

.NetFramework4.5.2+VS2017ですが。

ポイントは別スレッドの完了待ち（Await）する前にダイアログ表示することと、時間差（コンピュータの性能依存ですが、500ms以内に表示が完了すること想定してます「Sleep(500)」）でキー操作をすることで目的のフォルダに強制移動させていること。

読み解けるひとには難しくないコードではありますが、一応簡単に解説

ちゃんと読み解いてませんが、スタックオーバーフローのやつは、ツリーを読み解いて再選択してキー操作で移動しているだけに見えるので、もっと単純に別スレッドで無理やりキー操作してみました。

スタックオーバーフローのサンプルはメンドクサイことをしてる気がします。

以下はお馬鹿さんコードであることは理解してますが、お気楽実装できます。

Friend filepath as string = "c:\"
Friend filename as string = "aaa.txt"
Private Async Sub Button1_Click(sender As Object, e As RoutedEventArgs) Handles Button1.Click
Dim Task1 As Task = Task.Run(Sub()
'非同期処理
System.Threading.Thread.Sleep(500)
System.Windows.Forms.SendKeys.SendWait("{DOWN}{UP}")
End Sub)

Using dlg = New FolderBrowserDialog
'Dim a = DialogResult
dlg.SelectedPath = filepath
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
filepath = dlg.SelectedPath.TrimEnd("\") & "\"
Else
MessageBox.Show("キャンセルしました")
End If
End Using
Await Task1

Me.TextBox1.Text = filepath & filename

End Sub

「Win32 APIのSHBrowseForFolderによる方法」のマイクロソフトへのページのリンクがなく、詳細が不明です。

評価：良い
判り易かった

残りのコメントをすべて見る（残り24件）

評価：悪い
C++に関する記述がない

VB.netで初期フォルダを設定し、可視領域までスクロールする方法はあります。
もっとも、ツリービューをサブクラス化するなど、かなり下位レベルのコーディングが必要です。

> フォルダ選択の際、不具合があるみたいです。
> 選択できるけど、スクロールしないという問題です。

ご報告有り難うございます。SelectedPathに指定したフォルダがツリービューの下の方にある場合、ダイアログが表示された時、そこまでスクロールしてくれないことがあるみたいですね。C#での解決法が、以下のページにありました。

c# - Why FolderBrowserDialog dialog does not scroll to selected folder? - Stack Overflow
http://stackoverflow.com/questions/6942150/why-folderbrowserdialog-dialog-does-not-scroll-to-selected-folder

ここにあるコードは、フォルダ選択ダイアログのウィンドウタイトルが英語の「Browse For Folder」であると決めつけていますので、この部分を日本語の「フォルダーの参照」に変える必要がありそうです。

選択できるけど、スクロールしないという問題です。
↓

フォルダ選択の際、不具合があるみたいです。

https://connect.microsoft.com/VisualStudio/feedback/details/518103/bffm-setselection-does-not-work-with-shbrowseforfolder-on-windows-7

C++で申し訳ないですが、コールバック処理で以下の様にして対処しています。
※保証はできませんが…
static int CALLBACK SHBrowseForFolderCallbackProc(HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM lpData)
{

if (uMsg == BFFM_INITIALIZED){
::SendMessage(hwnd, BFFM_SETSELECTION, (WPARAM)TRUE, lpData);
}else
if (uMsg == BFFM_SELCHANGED){
// 毎回、選択
::SendMessage(hwnd, BFFM_SETSELECTION, (WPARAM)TRUE, lpData);
LPARAM pos = (LPARAM)::SendMessage(hwnd, TVM_GETNEXTITEM, TVGN_CARET, 0);
::SendMessage(hwnd, TVM_ENSUREVISIBLE, 0, pos);
::Sleep(0);
}

return 0;
}

失礼しました。VB2010とかFrameWork4.0の問題ではないらしく、WindowsXPだとダイアログ画面のタイトルが「フォルダの参照」となりWindows7だと「フォルダーの参照」になるようです。処理上は関係ないことなのでどちらでも良いですが、記述の統一という点からはタイトルバーの表示内容が変更できないのは如何なものかと思うのですが･･･

vb2010＋FrameWork4.0で開発していますが、FolderBrowserDialogのタイトル部分が「フォルダの参照」ではなく「フォルダーの参照」になります。タイトル部分は変更できないみたいですね･･･。マニュアル作成時に他の説明部分は全て「フォルダ」なのにここだけ「フォルダー」って･･･表記統一できなくて困りますよね。

> Widnows7で実行しているとき、fbd.SelectedPath にユーザーフォルダ以下を指定してもうまく表示がされないのですが、これは回避できないのでしょうか…

試してみましたが、「マイミュージック」などのフォルダは問題なく表示されました。権限のないフォルダを指定した時は、無視されました。

評価：良い
簡潔で分かりやすいです。

ただ、Widnows7で実行しているとき、fbd.SelectedPath にユーザーフォルダ以下を指定してもうまく表示がされないのですが、これは回避できないのでしょうか…

評価：良い
欲しかった情報が見つかって良かったです。

評価：良い
助かりました！

SelectedPath で選択はできるのですが、スクロールしないので深い階層ですと探すの大変なんですがスクロールする方法はありませんか？

評価：良い
わかりやすいです。

評価：良い
よく使う参照ボタン。
とても役にたつ記事でした。

.NET 2.0でも FolderBrowserDialogクラスはこのページの説明にあるとおりに使えました。

評価：良い
VBを始めたばかりです。手軽に参照できるTipsはなかなか他にないので、とても重宝しています。

評価：良い
最初はクラスの作り方がわからなかったので、できなかったのですが
現在は、できるようになりました。

評価：良い
非常に助かりました
使用頻度高いダイアログなのに、なんで無いのでしょう…＞1.0

評価：良い
有料のソースコードをまず発見し，自分でしこしこと実装しなきゃいけないかと諦めていたときに，ここを発見！
非常に助かりました．

評価：良い
参考になりました

評価：良い
ヘルプ読むのが面倒だったので助かりました

評価：良い
何かと必要なので大変助かります。

>public string BrowseDialog(string description， Form owner)
>の間違いだと思います。

確認しました。ご報告ありがとうございました。

.NET Framework 1.0のサンプルの[C#]

で
public void BrowseDialog(string description， Form owner)
は
public string BrowseDialog(string description， Form owner)
の間違いだと思います。

この記事に関するコメントを投稿するには、下のボタンをクリックしてください。投稿フォームへ移動します。通常のご質問、ご意見等は掲示板へご投稿ください。

設定

.NET Tips

掲示板最新情報

Translate

その他