• ベストアンサー

フォルダーの中のファイルを数えたい

VBで非常に初歩的な質問ですが 教えていただけるとありがたいです あるフォルダーの中に含まれるファイルで 特定の名前 例えばあるときは"ws"でファイルが始まるもの ある時は拡張子が"txt"のもの という具合に、条件に当てはまるファイルの数を調べる コーディングをしたいのですが このときに どんなオブジェクトのどんなプロパティを使えばいいのでしょうか 宜しくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

VB6ですか? Dir関数のヘルプにサンプルが出ているはずです。 それ以外の方法も書いておきます。 フォームにファイルリストボックスコントロールを張って ・Pathでフォルダパスを指定 ・Patternでフィルタを行う[ws*;*.txt]だと[wsで始まるか拡張子がtxt] ・ListCountを得る で取得できます。

ultra-daddy
質問者

お礼

回答ありがとうございます Dir関数を使うのですね・・・ どうも、自分の目的に合う関数やオブジェクトを見つけるのが 下手なので、こうなってしまいます。 ファイルリストボックスコントロールでPatternによる フィルタリングは以前から使っていましたが その後listcountでファイルの数が取得が出来るのは 知りませんでした。 勉強になりました。 ありがとうございます。

その他の回答 (2)

  • Likodon
  • ベストアンサー率0% (0/1)
回答No.3

ここが参考になりませんか http://www.bcap.co.jp/hanafusa/ 「指定フォルダー以下の全ファイルを列挙」

参考URL:
http://www.bcap.co.jp/hanafusa/
ultra-daddy
質問者

お礼

回答ありがとうございます。 リンク先を覗いてみました。 私の疑問点の他にも参考になりそうなことが たくさん載っているようです。 参考にしたいと思います。 ありがとうございました。

ultra-daddy
質問者

補足

皆様、回答ありがとうございました。 三人の方に回答していただきましたが、 ポイントは残念ながら二人の方にしかつけられないシステムですので 申し訳ないのですのが 早い者勝ちということにしたいと思います ありがとうございました。

  • ttyp03
  • ベストアンサー率28% (277/960)
回答No.2

とりあえずVB6で。 Dim b As String Dim cnt As Integer b = Dir("*.txt") cnt = 0 While b <> ""  cnt = cnt + 1  b = Dir Wend MsgBox cnt

ultra-daddy
質問者

お礼

回答ありがとうございます このコーディングで挑戦してみようと思います ありがとうございました。