Sub 指定フォルダ内のファイル数を取得する()

    Set ファイルシステム = CreateObject("Scripting.FileSystemObject")
    
    対象フォルダ = "C:\test\"
    
    ファイル数 = ファイルシステム.GetFolder(対象フォルダ).Files.Count
    
    MsgBox 対象フォルダ & "内のファイル数は" & ファイル数 & "個です"

End Sub