コモンダイアローグでホルダーを指定したい

質問

ｖｂ６、ｐｃはｘｐです。
ネットワーク経由で開いたり保存したりするためにCommondialogを使ってパスを取得したいのですが、必ずファイル名まで指定しないとダイアローグが閉じてくれません。ディレクトリの指定だけで終わるように出来るのでしょうか。

回答No.1

NOBNNN

フォルダ取得のダイアログは以下のコードでできます。

Dim Fs as Object
DIm Fd as Object
SET FS = CreateObject("Shell.Application")
SET FD=fs.BrowseForFolder(0,"フォルダを選択してください。",&h1,&h0)

このコードは windows ならメモ帳にはりつけて　ファイル名を
xxxxx.VBS xxxxは任意　というファイル名で保存すれば
そのファイルをダブルクリックするだけで　VBS　として実行できます。
お試しあれ・・・
なお　ExcelのVBAやVB6 でも動きます。

詳細は　http://homepage2.nifty.com/pasocon/shell/shell/browseforfolder.html
ほか
検索サイト　ＧＯＯＧＬＥにて下記キーワード「」内を指定して
検索してください。
キーワード「Shell.Application BrowseForFolder」
以上

お礼

いつもありがとうございます。
Dim Fs as Object
DIm Fd as Object
SET FS = CreateObject("Shell.Application")
SET FD=fs.BrowseForFolder(0,"フォルダを選択してください。",&h1,&h0)
一応動きましたけどどうやってパスを取得できるのでしょうか。

補足

手元に『300の技』という本があって載っていました。
ありがとうございました。