count subfolders

[pandemar]

Hi,
I have code to count files in folders...
I need help writing vba to just count the subfolders in a folder.
(needs to include all nested subfolders)

thanks,

peter
<!-- / message -->

 

[John_w]

Try this. The code can go in a standard module or a sheet module. Call the function as shown in the test routine.

Public Sub Count_Subfolders_Test()
    
    Dim oFso As Object
    
    Set oFso = CreateObject("Scripting.FileSystemObject")
    MsgBox Count_Subfolders(oFso, "F:\temp")
    
    Set oFso = Nothing

End Sub

Private Function Count_Subfolders(oFso As Object, folderPath As String) As Long
    
    Dim Folder As Object, Subfolder As Object
        
    Set Folder = oFso.GetFolder(folderPath)
        
    Count_Subfolders = 0
    For Each Subfolder In Folder.subfolder
        Count_Subfolders = Count_Subfolders + 1 + Count_Subfolders(oFso, Subfolder.Path)
    Next
    
End Function

 

[pandemar]

Hi,
Thanks for the quick reply.
I replaced the temp path with a valid path (mapped drive/folder),
but the following line of code err's.

For Each Subfolder In Folder.Subfolder
object does't support this property or method.

Is there something I'm forgetting or doing wrong???

peter

 

[John_w]

No, a bug must have got in when I pasted the code. The fix is:

For Each Subfolder In Folder.subfolders

 

[GTO]

Cross-posted: http://www.vbaexpress.com/forum/showthread.php?t=29012

 

[pandemar]

thanks again ( I should have spotted it, getting late, getting tired)

Works fine...

Is there any way to incorporate the totaling of files and file size so that I don't have to iterate 3 times???

peter