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


1ヶ月利用者  2004-12-17 23:18:25  No: 118355

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


聖 羅樹  URL  2004-12-17 23:56:53  No: 118356

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


1ヶ月利用者  2004-12-18 05:54:48  No: 118357

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

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


あか  2004-12-18 18:58:18  No: 118358

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


聖 羅樹  URL  2004-12-19 08:19:49  No: 118359

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

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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加