Sub 指定フォルダ内のフォルダ数とファイル数がゼロか判定する()

    Set システム = CreateObject("Scripting.FileSystemobject")
    
    対象フォルダ = "C:\test\"
    
    Set 有無判定 = システム.GetFolder(対象フォルダ)
    
    If (有無判定.Files.Count = 0) And (有無判定.SubFolders.Count = 0) Then
    
        MsgBox "フォルダは空です"
    
    Else
    
        MsgBox "フォルダは空ではありません"
    
    End If

End Sub