CommonDialogにはフォルダを選択するダイアログがないので、
ExcelのFileDialogを使おうとしています。
Office Libraryを参照設定で選択したら、FileDialogの型宣言はできるようになったのですが、
ExcelでのApplication.FileDialogのApplicationのところがわからず文法エラーになってしまいます。

別にFileDialogでなくてもフォルダ選択ができればいいのですが、
自作するしかないのでしょうか？

VB6,WinXPです。よろしくお願いします。

> 別にFileDialogでなくてもフォルダ選択ができればいいのですが、
VB標準のディレクトリ リスト ボックス (DirListBox) コントロールを使用されたら
いかがでしょうか？


又、下記のような方法もありますし、APIを使う方法もあります。

    Call CreateObject("Shell.Application").BrowseForFolder(0, _
                                "フォルダを選択して下さい。", 0, "c:\")

> > 別にFileDialogでなくてもフォルダ選択ができればいいのですが、
> VB標準のディレクトリ リスト ボックス (DirListBox) コントロールを使用されたら
> いかがでしょうか？
>
>
> 又、下記のような方法もありますし、APIを使う方法もあります。
>
>     Call CreateObject("Shell.Application").BrowseForFolder(0, _
>                                 "フォルダを選択して下さい。", 0, "c:\")
>
最後の部分、顔文字かと思ってしまいました（失礼

Excel Libraryも参照設定に加え、上記のレスからピンときて
CreateObject("Excel.Application")とやってみたらFileDialogが使えたのですが、
いちいちExcelが立ち上がって重いのでやめました。

DirListBoxやBrowseForFolderやってみたのですが、
Excelのデータ処理のアプリがFileDialogなので、
VBのほうもエクスプローラ調にしたいのです。
やはり、DirListBoxやDriveListBoxで自作する手でしょうか？
自作するにしてもXPのエクスプローラみたいのは作れるのでしょうか？
見栄えのいいForm作るの苦手なので、DirListBoxで妥協してしまいそうです。

貴方が
> 別にFileDialogでなくてもフォルダ選択ができればいいのですが、
とおしゃったので、フォルダ選択の方法を提示したのですが

>VBのほうもエクスプローラ調にしたいのです。
>やはり、DirListBoxやDriveListBoxで自作する手でしょうか？
>自作するにしてもXPのエクスプローラみたいのは作れるのでしょうか？

なら、最初からそのように書いて下さい。


API の GetOpenFileName　と GetSaveFileName を使用して下さい。

APIのSHBrowseForFolderではダメなんですか？