Check if Directory Exists

Function DirExists (strPath As String) As Boolean
   DirExists = (Dir$ (strPath ,16 ) <> "" )
End Function