'Comprobación De Si Existe Un Directorio Determinado

Public Function DirExists(ByVal sDirName As String) As Boolean
   Dim sDir As String
   On Error Resume Next
   DirExists = False
   sDir = Dir$(sDirName, vbDirectory)
   If (Len(sDir) > 0) And (Err = 0) Then
      DirExists = True
   End If
End Function