Функция, которая возвращает размер папки - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д