CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to count number of sub-directories in a given directory (in two ways)
Option Explicit
 
'Using Dir:

Public Function CountSubFoldersUsingDir(ByVal sPath As String) As Integer
    On Error Resume Next
    Dim dirname As String, iCount As Integer
    If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
    dirname = Dir$(sPath & "*.*", vbDirectory)
    Do While Len(dirname)
        If dirname = "." Or dirname = ".." Then
            ' Exclude the "." and ".." entries.
        ElseIf (GetAttr(sPath & dirname) And vbDirectory) = 0 Then
            ' This is a regular file.
        Else
            ' This is a directory.
            iCount = iCount + 1
        End If
        dirname = Dir$
    Loop
    CountSubFoldersUsingDir = iCount
End Function
 
'Using FSO:

Public Function CountSubFoldersUsingFSO(ByVal sPath As String) As Integer
    On Error Resume Next
    'Set a reference to "Microsoft Scripting Runtime"
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    CountSubFoldersUsingFSO = FSO.GetFolder(sPath).SubFolders.count
    Set FSO = Nothing
End Function