Comment faire la différence entre un répertoire inexistant et un répertoire vide ?

Faute de mieux, tu peux passer par exemple par la fonction GetAttr :

Function
 RépertoireExiste(Chemin As String) As Boolean
 	On Error Resume Next
 	RépertoireExiste = GetAttr(Chemin) And vbDirectory
 End Function

sub Test()
 MsgBox RépertoireExiste("C:\Truc")
 end sub