Public Function DirExists(ByVal sPath As String) As Boolean
  On Local Error Resume Next
  Dim iResult As Integer
  Dim sDir As String
 
  sDir = Dir$(sPath, vbDirectory)
  If sDir <> "" Then
    If InStr(sPath, "\") > 0 Then
      sPath = Left$(sPath, InStrRev(sPath, "\"))
      sDir = sPath & sDir
    End If
    iResult = GetAttr(sDir)
    DirExists = IIf(Err = 0, True, False)
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de