Функция, которая возвращает размер папки - VB
Формулировка задачи:
Подскажите функцию, которая возвращает размер папки.
Я только нашла фун-ю, кот возвращает длину файла.
Решение задачи: «Функция, которая возвращает размер папки»
textual
Листинг программы
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