フォルダ内のファイル数を数えたい【特定のファイルのみカウントするには？】

解決

ひっぴ 2006-01-20 05:22:24 No: 129696

フォルダにいくつの画像ファイル（.jpg）が入っているか数えたいです。現在種類関係ないくいくつあるかを知るまでは以下のソースでできました。

*****************
Private Sub Command1_Click()

Dim myFSO As Object

Dim myFolder As Object

Dim myFolderPath As String

'対象のフォルダのパスを指定します。(ここでは仮に"C:\TMP"とします。
myFolderPath = "C:\TMP"

Set myFSO = CreateObject("Scripting.FileSystemObject")

Set myFolder = myFSO.GetFolder(myFolderPath)

MsgBox myFolderPath & " フォルダ内のファイル数は " & myFolder.Files.Count & " です。", vbInformation, "Information"

Set myFolder = Nothing

Set myFSO = Nothing
***********
よろしくお願いいたします。

ひっぴ 2006-01-20 05:25:11 No: 129697

書き忘れました。
開発環境は
VisualBasic 6.0です

杏仁豆腐 2006-01-20 07:09:04 No: 129698

フォルダ内のファイルはフォルダオブジェクトのFilesプロパティで参照できます。
で、全てのファイルについてファイル名の右から４文字をとってきて".jpg"
かどうかを判定すればいいんじゃないでしょうか。

Dir関数を用いて第一引数にワイルドカード"(対象フォルダパス)\*.jpg"を指定し
該当するファイルの数を数えるとかいう方法もありますね。

LESIA 2006-01-20 18:53:36 No: 129699

拡張子がjpgかどうかを調べて、カウントしていくとか。
Dim myFSO As Object
Dim myFolder As Object
Dim myFile As Object
Dim myFolderPath As String
Dim n As Long

'対象のフォルダのパスを指定します。(ここでは仮に"C:\TMP"とします。
myFolderPath = "C:\TMP"

Set myFSO = CreateObject("Scripting.FileSystemObject")

Set myFolder = myFSO.GetFolder(myFolderPath)

n = 0
For Each myFile In myFolder.Files
    If myFSO.GetExtensionName(myFile.Name) = "jpg" Then
        n = n + 1
    End If
Next myFile

MsgBox myFolderPath & " フォルダ内の画像ファイル数は " & n & " です。", vbInformation, "Information"

Set myFolder = Nothing

Set myFSO = Nothing

ひっぴ 2006-01-20 21:00:48 No: 129700

＞杏仁豆腐様 LESIA様
ご回答真にありがとうございます。
拡張子を調べてカウントする方法を使わせていただきました。
大変役立ちました。
ありがとうございました。