あるフォルダの中にあるファイル数を『簡単に』求めるには？？

質問

あるフォルダの中にあるファイル数を
カウントしたいのですが、どのようにすればよいでしょうか？

DIR 関数を使って、そのフォルダの中に
あるファイルがなくなるまでカウントする方法以外
で何かもっと、簡単な方法はありませんでしょうか？

動作が速い方法がよいです。
どなたか教えてください。よろしくお願いします。

回答No.2

maruru01 · ベストアンサー

こんにちは。maruru01です。

ファイルシステムオブジェクトを利用してはどうでしょうか。

Dim myFSO As Object
Dim fileCount As Long

Set myFSO = CreateObject("Scripting.FileSystemObject")
fileCount = myFSO.GetFolder(フォルダのフルパス).Files.Count
MsgBox "ファイル数は " & fileCount & " 個です。"

Set myFSO = Nothing

ファイルシステムオブジェクトについては、以下のページを参考にして下さい。

http://www.bcap.co.jp/hanafusa/VBHLP/FSOme.htm
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/jsobjFileSystem.asp

参考URL：

http://www.bcap.co.jp/hanafusa/VBHLP/FSOme.htm,http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/l

お礼

回答ありがとうございます。
なるほどー。助かりました。

回答No.3

noname#6356

フォームを作っておられるのであれば、ファイルリストボックスコントロールをフォームにひとつ貼り付け、非表示にしておいて、次のようにするのもひとつの手です。

File1.Path = "ディレクトリを設定"
MsgBox File1.ListCount

File1はファイルリストボックスコントロールです。

お礼

回答ありがとうございます。
賢い方法ですね。参考になりました！

回答No.1

nishihi

Win系列なら　フォルダを右クリックしてプロパティーを見れば数えてくれると思いますが、それでどうでしょう。

補足

回答ありがとうございます。

visualbasic6.0 SP5 windows2000 で開発しています。
プログラム内でカウントしたいのです。