Win32 API `SHBrowseForFolder` による堅牢なフォルダ選択ダイアログの実装

Tech

本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。

Win32 API SHBrowseForFolder による堅牢なフォルダ選択ダイアログの実装

【背景と目的】

標準のFileDialogが利用できない環境や、OS標準のネイティブな挙動を優先したい業務において、Win32 APIを用いた高速で安定したフォルダ選択機能を実装します。

【処理フロー図】

graph TD
A["開始"] --> B["BROWSEINFO構造体の初期化"]
B --> C["SHBrowseForFolderの呼び出し"]
C --> D{"フォルダが選択されたか?"}
D -- Yes --> E["SHGetPathFromIDListでパス変換"]
E --> F["CoTaskMemFreeでメモリ解放"]
D -- No --> G["空文字を返して終了"]
F --> H["終了"]

【実装：VBAコード】

Win32 APIを利用し、64bit環境でも動作する PtrSafe 宣言を用いた実装です。メモリ管理（メモリリーク防止）を徹底しています。

Option Explicit

' --- Win32 API 宣言 (64bit/32bit 両対応) ---
#If VBA7 Then

    ' 64bit環境用
    Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongPtr
    Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As LongPtr, ByVal pszPath As String) As Long
    Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As LongPtr)

    Private Type BROWSEINFO
        hwndOwner As LongPtr
        pidlRoot As LongPtr
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As LongPtr
        lParam As LongPtr
        iImage As Long
    End Type
#Else

    ' 32bit環境用
    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
    Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
    Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)

    Private Type BROWSEINFO
        hwndOwner As Long
        pidlRoot As Long
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As Long
        lParam As Long
        iImage As Long
    End Type
#End If

' --- 定数宣言 ---
Private Const BIF_RETURNONLYFSDIRS = &H1      ' ディレクトリのみ選択可能
Private Const BIF_NEWDIALOGSTYLE = &H40      ' 新しいスタイル（サイズ変更可）
Private Const MAX_PATH = 260                  ' パス最大長

''' <summary>
''' 高機能なフォルダ選択ダイアログを表示し、選択されたパスを返します。
''' </summary>
''' <param name="msg">ダイアログに表示する説明文</param>
''' <returns>選択されたフォルダのフルパス（キャンセル時は空文字）</returns>
Public Function GetFolderWithAPI(Optional ByVal msg As String = "フォルダを選択してください。") As String
    Dim ubi As BROWSEINFO
    #If VBA7 Then

        Dim pidl As LongPtr
    #Else

        Dim pidl As Long
    #End If

    Dim strPath As String

    ' 構造体の初期設定
    With ubi
        .hwndOwner = 0 ' 親ウィンドウ（0はデスクトップ）
        .lpszTitle = msg
        .ulFlags = BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE
    End With

    ' ダイアログ表示
    pidl = SHBrowseForFolder(ubi)

    ' 戻り値の処理
    If pidl <> 0 Then
        strPath = String(MAX_PATH, vbNullChar)
        ' IDリストからパス文字列に変換
        If SHGetPathFromIDList(pidl, strPath) <> 0 Then
            ' ヌル文字以降をカットして取得
            GetFolderWithAPI = Left(strPath, InStr(strPath, vbNullChar) - 1)
        End If
        ' 使用したメモリ（PIDL）を解放（必須）
        CoTaskMemFree pidl
    Else
        ' キャンセル時
        GetFolderWithAPI = ""
    End If
End Function

''' <summary>
''' 実行用プロシージャ
''' </summary>
Sub Sample_SelectFolder()
    Dim selectedPath As String

    ' 高速化設定（本処理には直接影響しないが、呼び出し元の作法として記述）
    Application.ScreenUpdating = False

    selectedPath = GetFolderWithAPI("データの保存先を選択してください。")

    If selectedPath <> "" Then
        MsgBox "選択されたパス: " & selectedPath, vbInformation
    Else
        MsgBox "キャンセルされました。", vbExclamation
    End If

    Application.ScreenUpdating = True
End Sub

【技術解説】

  1. PtrSafe と LongPtr: Office 64bit版ではポインタやハンドルのサイズが8バイトになるため、LongではなくLongPtrを使用することが必須です。これにより環境に依存しない動作を保証します。

  2. BROWSEINFO 構造体: ダイアログの挙動を制御する設定パックです。ulFlags に BIF_NEWDIALOGSTYLE を含めることで、最新のWindowsに即したサイズ変更可能なダイアログを提供します。

  3. メモリ管理 (CoTaskMemFree): SHBrowseForFolder はシステムメモリを確保してフォルダ情報を返します。これを使用後に手動で解放しないと、繰り返し実行した際にメモリリーク（メモリ不足）の原因となるため、API実行後の解放は必須の処理です。

【注意点と運用】

  • パスの最大長: Windowsの制限により、MAX_PATH (260文字) を超えるパスは正常に取得できない場合があります。深い階層での利用時は注意が必要です。

  • 初期フォルダの指定: 本コードはシンプルな実装ですが、特定のフォルダを初期表示させるには「コールバック関数（lpfn）」の実装が必要となり、難易度が上がります。

  • 参照設定不要: Win32 APIを直接呼び出しているため、ExcelやAccessの「参照設定」を汚さず、配布しやすいというメリットがあります。

【まとめ】

  1. 環境互換性: PtrSafe を用いることで、32bit/64bit混在環境でもエラーなく動作する。

  2. リソース管理: CoTaskMemFree によるメモリ解放を忘れずに行い、システムの安定性を維持する。

  3. UI/UXの向上: BIF_NEWDIALOGSTYLE を活用し、ユーザーが使いやすいダイアログを提供する。

ライセンス：本記事のテキスト/コードは特記なき限り CC BY 4.0 です。引用の際は出典URL（本ページ）を明記してください。
利用ポリシー もご参照ください。

コメント

タイトルとURLをコピーしました