CommonDialog のプロパティ (ID:127183)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 030 ガッ もげ さん ありがとうございます。 三方が言われる通りにするのが一番良いように思ってきました。 SHBrowseForFolderでBIF_BROWSEINCLUDEFILES指定 SHBrowseForFolderでBIF_NEWDIALOGSTYLE指定 を実装してみたのですが、指定方法が上手くいきません。 Dim tBrowseInfo As BROWSEINFO Dim lFoldPointer As Long Dim szPath As String * 1024 OpenDirDialog = "" m_szDefPath = szDefPath With tBrowseInfo .hwndOwner = hWnd 'ルートフォルダを設定 .pidlRoot = CSIDL_DESKTOP .lpszTitle = szTitle 'フラグを立てる .ulFlags = BIF_BROWSEINCLUDEFILES ← この行で"変数が定義されていません"エラーがでます。 .lpfn = FunctionAdress(AddressOf BrowseCallbackProc) End With '[フォルダの参照]ダイアログを呼び出す lFoldPointer = SHBrowseForFolder(tBrowseInfo) 指定の方法が間違っているのでしょうが、どのように指定したらよいのでしょうか・・・。 何度も申し訳ありませんがお願いします。