Функция, которая возвращает размер папки - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы