How can I check if a Directory is empty and Delete it 1

[M626]

Is there a way I can check if a Directry is empty

"C:\Test\"

If empty then delete "C:\Test\"

Thanks,

 

[000Steve000]

This should work I think.

Sub RemoveIfEmpty()
MyFile = Dir("c:\test\*.*")
If Len(MyFile) = 0 Then
    RmDir ("c:\test")
End If
End Sub