verificare se una cartella è vuota con vba

[kenny_it_it]

Ciao

Come faccio a vedere se una cartella è vuota??? Ho provato con la funzione len(dir("pathname") ma funziona solo se la cartella è inesistente

grazie!

[gibra]

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

[kenny_it_it]

thanks