verificare se una cartella è vuota con vba

[gibra]

dim pathname as string 
pathname = "C:\Temp\*.*"
If Dir(pathname) = "" Then
    MsgBox "Cartella vuota"
End If