Sto cercando una funzione (Verifica se directory è vuota)..

[Mabi]

Se è vuota significa che non c'è nessun file... quindi ti basta andare a prenedere il nome di un file della cartella e verificare che non sia una stringa vuota .

Dim FileName As String
Dim Directory As String

Directory = "C:\Documenti\"

FileName = Dir(Directory & "*.*")
If FileName = "" Then
  MsgBox "Nessun file nella cartella " & Directory
Else
  MsgBox "La cartella " & Directory & " non è vuota"
End If

Ciao !