Test If Folder Exists

 

Len(Dir$(strDirname), vbDirectory) > 0