フォルダを指定して中のテキストファイルを一括に読み込むするには？

1ヶ月利用者 2004-12-17 14:18:25 No: 118355 IP: [192.*.*.*]

ボタンを押すとフォルダ指定をして開くを押すとその中のテキストファイルを
全部読み込むにはどうすれば良いのでしょうか。

聖羅樹 URL 2004-12-17 14:56:53 No: 118356 IP: [192.*.*.*]

どこまで出来ていてどこから分からないのですか？

1ヶ月利用者 2004-12-17 20:54:48 No: 118357 IP: [192.*.*.*]

Dim sho As Object
Dim myFolder As Object
Set sho = CreateObject("shell.application")
Set myFolder = sh.browseforfolder(0, "ファイルのあるフォルダを指定してください", 0)

と何処かのHPを見ながら書いて見たのですがどうもその先が解りません・・。

編集削除

あか 2004-12-18 09:58:18 No: 118358 IP: [192.*.*.*]

「読み込む」って変数化なんかにファイルの内容をいれるだけ？

編集削除

聖羅樹 URL 2004-12-18 23:19:49 No: 118359 IP: [192.*.*.*]

>どうもその先が解りません・・。
フォルダ選択ダイアログ（BrowseForFolder）を表示できないのですか？
それともそこで選択されたパスに対して何をやればいいのかわからないのですか？
分からない部分は詳しく書いてください。
書かれたコードも理解されていますか？

まず、フォルダ選択ダイアログはこのサイトのAPI技術関連のページに
サンプルがあります。以下を参照してください。
http://madia.world.coocan.jp/vb/API/SHBrowseForFolder.htm
ちなみに、そのままでは動きませんでした。
SHGetPathFromIDList APIの宣言が足りなかったんですが。
これは御自身でお調べ下さい。Googleあたりで検索すればすぐ見つかります。

その後は取得したフォルダパスに対して、
Dirなどでテキストファイルを検索していくだけですが、
あかさんも述べられているように、『読み込む』の具体的な意味が
分かりませんので、これ以上は答えられないです。

編集削除