Помогите , не пойму почему не работает прога ...
хочу посчитать общее кол-во папок на диске ...

вызываю вначале функцию так ...
Folder("C:\")

сама функция ...

Function Folder(Path As String)

Name = Dir(Path, vbDirectory)
Do While Name <> ""

If Name <> "." And Name <> ".." Then
If (GetAttr(Path & Name) And vbDirectory) = vbDirectory Then
x = Path + Name + "\"
i=i+1
asd (x)

End If
End If
Name = Dir
Loop

End Function