VBA Excel フォルダのファイル数を表示

Excel 　のVBAで　フォルダ内のファイル数を表示するサンプルです。「隠しファイル」や「保護されたオペレーティングシステムファイル」も数えています。





Sub count_file_number()

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    With fso.GetFolder("C:\")
        MsgBox .Files.Count & "個のファイルがあります", vbInformation
    End With
    Set fso = Nothing
End Sub