SubFolderaufruf in VBA

FileSystemObject -> GetFolder(szPath) -> GetSubFolders()

wenn du willst kannst du auch source haben..

edit: tut mir leid, verschrieben.. SubFolders() heisst die funktion

der code geht ein verzeichnis (mit allen unterverzeichnissen) durch und ermittelt die anzahl der unterverzeichnisse aller unterverzeichnisse in dem angegebenen verzeichnis. hab ich verzeichnis schon gesagt?

Code:

Function GetSubFolderCount(folderCur) As Integer
On Error GoTo ExitWithZero

    Dim nFolders As Integer

    Set folderSubs = folderCur.SubFolders
    For Each folderSub In folderSubs
        nFolders = nFolders + GetSubFolderCount(folderSub) + 1
    Next

    GetSubFolderCount = nFolders
    Exit Function

ExitWithZero:
    GetSubFolderCount = 0
End Function

Sub ShowFolderInfo(szPath As String)
    Dim objFS As Object, _
        szOutput As String, _
        nSubFolders As Integer

    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set folderRoot = objFS.GetFolder(szPath)
    Set folderSubs = folderRoot.SubFolders

    For Each folderSub In folderSubs
        nSubFolders = GetSubFolderCount(folderSub)
        szOutput = szOutput & folderSub.Name & " (" & nSubFolders & ")" & vbCrLf
    Next

    MsgBox szOutput
End Sub

Sub Lala()
    ShowFolderInfo "C:\Downloads\"
End Sub

du sorry,wenn ich wieder nerve aber der hat mir in den Zeilen ein problem...

Set objFS = CreateObject("Scripting.FileSystemObject")
HIER-->> Set folderRoot = objFS.GetFolder(szPath)
Set folderSubs = folderRoot.SubFolders

Da passt erm was nicht und ich komm einfach nicht drauf
wär dankbar,wennst ma da weiterhelfen könntest -wir stehen ja kurz vom Ziel hehe
mfg

Slayer5612

welches vba und wie heisst die fehlermeldung?

habs jetzt ebenfalls auf vba access 2003 probiert.. funktioniert. diese fehlermeldung bekomme ich wenn ich einen nicht vorhandenen ordner angebe. überprüf das lieber noch einmal.

hmm setz an breakpoint und schau mit der schnellüberwachung den wert in szPath an - dann siehst welchen Pfad er da verwendet (eine Zeile vor der wo der Fehler auftritt...)

oder schmeiß einfach ein MsgBox(szPath) rein dann müsstern auch ausgeben.

es geht !!! *FREU*!!

Danke mann!!
Oh bin ich glücklich!!*hehe*!
Danke noch mal!Echt nett von dir!

mfg

Slayer5612