tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル指定フォルダー以下(サブフォルダー内を含む)の全ファイルをカウントする
記事No12977
投稿日: 2008/08/29(Fri) 13:33
投稿者茶ネコ
いつもお世話になっております。過去ログで
「指定フォルダー以下(サブフォルダー内を含む)の全ファイルを列挙する」
というのがあったのですが、数をカウントするにはどうすればよいでしょうか?
「ファイル数・サブフォルダ数・総バイト数を取得」を参考にしたらできたと思って
いたのですが、サブフォルダのさらに下の階層のフォルダ数や、ファイル数も
出したいのです。今までずっと手作業で右クリックでプロパティを見ては
データ取りをしていたので、ぜひ教えて頂けたらうれしいのですが。
よろしくお願い致します。

[ツリー表示へ]
タイトルRe: 指定フォルダー以下(サブフォルダー内を含む)の全ファイルをカウントする
記事No12979
投稿日: 2008/08/29(Fri) 13:44
投稿者るしぇ
サブフォルダが見つかったら、
次はサブフォルダを指定フォルダと見なして
同じ処理を実行させればいいだけでは?

単純な再帰関数ですね。

[ツリー表示へ]
タイトルRe^2: 指定フォルダー以下(サブフォルダー内を含む)の全ファイルをカウントする
記事No12980
投稿日: 2008/08/29(Fri) 13:53
投稿者茶ネコ
> サブフォルダが見つかったら、
> 次はサブフォルダを指定フォルダと見なして
> 同じ処理を実行させればいいだけでは?
>
> 単純な再帰関数ですね。

「指定フォルダー以下(サブフォルダー内を含む)の全ファイルを列挙する」の
後半あたりをヒントにやってみます。突発の仕事が入ったのでまた数時間後からに
なると思いますが、またどうなったかご報告させて下さい。

[ツリー表示へ]
タイトルRe^3: 指定フォルダー以下(サブフォルダー内を含む)の全ファイルをカウントする
記事No12981
投稿日: 2008/08/29(Fri) 14:16
投稿者るしぇ
> 「指定フォルダー以下(サブフォルダー内を含む)の全ファイルを列挙する」の
> 後半あたりをヒントにやってみます。
http://hanatyan.sakura.ne.jp/vbhlp/fso14.htm
>MsgBox "ファイルが" & List1.ListCount & "個見つかりました"

ヒントというか。。。数えてくれてるけどね。

[ツリー表示へ]