フォルダのパスを取得するには？

解決

裕太の父  2004-09-02 09:46:53  No: 116091  IP: [192.*.*.*]

初心者です。
OS:WinXP VB:6.0 SP3を使用しています。
コモンダイアログのようにファイルを探すのではなく、目的のフォルダを探しそのフォルダのパスを取得しテキストボックスに表示する方法を教えてください。

編集 削除
nanashi  2004-09-02 10:34:14  No: 116092  IP: [192.*.*.*]

フォルダの参照ダイアログのことでしょうか？
APIのSHBrowseForFolderで出来ます。

編集 削除
リエママ  2004-09-02 10:39:12  No: 116093  IP: [192.*.*.*]

フォルダの選択ダイアログのことかな？
http://www.google.co.jp/

編集 削除
裕太の父  2004-09-02 18:03:22  No: 116094  IP: [192.*.*.*]

nanashiさん、リエママさん  ありがとう御座います。
フォルダの選択ダイアログをgoogleで検索して早速、サンプルプログラムを試したのですがうまく出来ません。
使い方等（ロジック等）を教えてください。

編集 削除
リエママ  2004-09-02 19:39:49  No: 116095  IP: [192.*.*.*]

> 試したのですがうまく出来ません。
> 使い方等（ロジック等）を教えてください。
といわれても、これだけの情報では何とも。

先ず、試したサンプルのリンクを貼ってください。
次に、うまくいかない内容を具体的に説明して下さい。

編集 削除
裕太の父  2004-09-02 23:01:04  No: 116096  IP: [192.*.*.*]

リエママさんすいませんでした。

私が、試したサンプルは、以下のページのサンプルです
  http://www31.ocn.ne.jp/~heropa/vb212.htm

又、上手くいかなかった理由は
1.  Dim objShell    As Shell  でエラー発生

2.  レイト・バインディングな方法で試しても
    Set objShell = CreateObject("Shell.Application")で
    アクティブＸエラー

3.  ページ上部に前提条件がある事をしったのでよく読んだのですが
    私のＶＢには「Microsoft Shell Controls And Automation」
    がありませんでした。

以上です。
文書が下手ですいません。
上手く通じるかどうか不安ですが宜しくお願い致します。

編集 削除
裕太の父  2004-09-03 16:11:11  No: 116097  IP: [192.*.*.*]

色々と試したら出来ました。

ありがとう御座いました。

編集 削除
ぴろあき  2004-09-03 16:14:15  No: 116098  IP: [192.*.*.*]

私は『Microsoft Shell Controls And Automation』なぞ参照しなくても、
実現できておりますので、
もちょっと別のサンプルでも試してみなされ。

検索エンジン:Google
キーワード:SHBrowseForFolder VB
検索結果:
http://www.google.com/search?num=50&hl=ja&ie=UTF-8&q=SHBrowseForFolder+vb&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja

ちなみに私は優太のパパ

編集 削除
裕太の父  2004-09-03 16:54:08  No: 116099  IP: [192.*.*.*]

ぴろあきさん

ありがとう御座います。
むちゃくちゃ簡単に出来ました。
今までの苦労は何だったのでしょうか？

本当にありがとう御座いました。

編集 削除