пара вопросов о папках

[JIeT4uK]

1. как узнать размер директории
2. список всех поддиректорий в директории

[GSerg]

FSO:
Folder.Size
Folder.SubFolders

[JIeT4uK]

плче фолдерсайз показывает объем только файлов находящихся в папке а то что во вложенных папках не считает????

[MEMBER]

Пройтись в цикле по всем найденным поддиректориям.

[GoGosha]

Незнаю, у меня считает во вложенных папках, но на всякий случай нате

Код: Выделить всё

Dim FSOMain As New FileSystemObject

Private Sub Form_Load()
    Print FolderSize("C:\")
End Sub

Function FolderSize(Path As String) As Double
    Dim Folder As Folder
    Dim elem As Folder
    Dim size As Double
   
    Set Folder = FSOMain.GetFolder(Path)
   
    size = Folder.size
   
    For Each elem In Folder.SubFolders
        size = size + FolderSize(elem.Path)
    Next elem
   
    FolderSize = size
End Function