Public Function IsFolder(ByVal sFileOrPath As String) As Boolean
  ' Funktion gibt TRUE zurück, falls es sich bei dem 
  ' übergebenen Pfad um ein Verzeichnis handelt, andernfalls FALSE
  On Error Resume Next
     If (GetAttr(sFileOrPath) And vbDirectory) Then IsFolder = True
  On Error GoTo 0
End Function

*greetz*
Tim
.
http://www.DotNetWorld.de