Sub CheckDirectory(strDirectoryName As String) As Boolean
 
On Error GoTo ErrorHandler
 
    Const strFuncName = "CheckDirectory"
    Dim strProtokollZusatz    As String
    Dim blnResult             As Boolean
 
 
        strProtokollZusatz = "DirectoryName <" & Trim(strDirectoryName) & ">"
 
 
 
    If (GetAttr(strDirectoryName) And vbDirectory) > 0 Then
      blnResult = True
    Else
      blnResult = False
    End If
 
Exit_Function:
        CheckDirectory = blnResult
    Exit Function
ErrorHandler:
 
    If Err.Number <> 53 Then    'Datei nicht gefunden
       MsgBox (strFuncName, strProtokollZusatz, True)
    End If
    blnResult = False
    GoTo Exit_Function
End Function