Функция, которая возвращает размер папки - VB

Function FolderSize(sFolderName As String)
    Dim oFSO As Object
    Dim oFolder As Object
 
    Set oFSO = CreateObject('Scripting.FileSystemObject')
    If oFSO.FolderExists(sFolderName) Then
        Set oFolder = oFSO.GetFolder(sFolderName)
        FolderSize = oFolder.Size
        Set oFolder = Nothing
    Else
        MsgBox 'Folder Not Found', vbInformation, 'Error'
    End If
    Set oFSO = Nothing
End Function