Dim Pfad As String = "c:\"
Dim iAtt as Variant
Dim cFile as String
 
cFile = Dir
iAtt = GetAttr(Pfad & cFile) ' Check ob cfile ein Ordner ist ..
If CBool(iAtt And vbDirectory) = True Then
MsgBox("bin ein ordner")

iAtt = GetAttr("C:\Programme")
MsgBox CBool(iAtt And vbDirectory) ' ergibt True, wenn es sich um einen Ordner 
' handelt