フォルダの中のファイル数を取得するには vba

質問

手作業でフォルダのプロパティからファイルの数を確認することはできるのですが
VBAで（FSOなど）、該当のフォルダの中に何個ファイルが入ってるかを確認するコードはありますか？

Sub test()
Dim MyFileName As String
Dim MyFolderName As String
Dim i As Long

MyFolderName = "\○○\icon"

MyFileName = Dir(MyFolderName & "\*.*")
Do While MyFileName <> ""
MyFileName = Dir()
i = i + 1
Loop

MsgBox i

End Sub

このようなコードを作ってみたのですが、
画像のように実際に目で確認したファイル数と一致しません。

正しい数が取得できるvbaコードはありますか？

回答No.1

山田 太郎（@f_a_007） · ベストアンサー

図のFilesCount()とGetAttribute()のファイルカウント数は一致しています。ところが、Dir()を用いた場合、ファイル数は6になります。ファイル属性35がはじかれるからです。このことは、GetAttribute()のDir版を作成してテストするとはっきりします。

Public Function FilesCount(ByVal fPath As String) As Integer
　　FilesCount = CreateObject("Scripting.FileSystemObject").GetFolder(fPath).files.Count
End Function

Public Function GetAttribute(ByVal fPath As String) As Integer
　　Dim I As Integer
　　Dim File_Collection As Object
　　Dim File_List As Variant

　　Set File_Collection = CreateObject("Scripting.FileSystemObject").GetFolder(fPath).files
　　I = 0
　　For Each File_List In File_Collection
　　　　If Len(File_List.Name & "") > 0 Then
　　　　　　Debug.Print Format(GetAttr(fPath & "\" & File_List.Name), "000:") & File_List.Name
　　　　　　I = I + 1
　　　　End If
　　Next
　　GetAttribute = I
End Function

お礼

ありがとうございました。