Dim FindFile() As String
Dim CountFindFile

Private Sub GetDirInDir2(Source As String, SubDir As Boolean)
'Возвращает в массив список папок в заданной папке
Dim objName As String
Dim hSearch As Long
Dim WFD As WIN32_FIND_DATA
Dim Cont As Integer
If Right(Source,  1 ) <> "\" Then Source = Source & "\"
    Cont = True
    hSearch = FindFirstFile(Source & "*", WFD)
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
            objName = Left(WFD.cFileName, InStr(WFD.cFileName, Chr( 0 )) -  1 )
            If Not (objName = "." Or objName = "..") Then
                If Not (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) =  0  Then
                    If objName <> Spliting(Source, "\") Then
                        FindFile$(CountFindFile) = Source & objName
                        CountFindFile = CountFindFile +  1 
                        ReDim Preserve FindFile$(CountFindFile)
                        If SubDir = True Then GetDirInDir2 Source & objName & "\", SubDir
                    End If
                    
                End If
            End If
           Cont = FindNextFile(hSearch, WFD)
        Loop
        Cont = FindClose(hSearch)
    End If
End Sub