Как получить размер папки - VBCoding - Программирование на Microsoft Visual Basic .NET / VB6: исходники, статьи, коды

Вам понравился наш сайт? Хотите сказать спасибо? Посмотрите объявления, может быть Вас что-нибудь заинтересует:

VBCoding

Библиотека кодов

Visual Basic .NET

Файловая система

Как получить размер папки

САМЫЕ ПОПУЛЯРНЫЕ КОДЫ В БИБЛИОТЕКЕ

НОВЫЕ КОДЫ В БИБЛИОТЕКЕ

Visual Basic .NET

Как получить размер папки

Функция GetFolderSize возвращает размер папки и всех вложенных папок в байтах. При желании можно исключить размер подпапок, указав параметр IncludeSubFolders = False.

Public Function GetFolderSize(ByVal DirPath As String, Optional ByVal IncludeSubFolders As Boolean = True) As Long
   Dim lngDirSize As Long
   Dim objFileInfo As FileInfo
   Dim objDir As DirectoryInfo = New DirectoryInfo(DirPath)
   Dim objSubFolder As DirectoryInfo

   Try
      'Сложить размер каждого файла
      For Each objFileInfo In objDir.GetFiles()
         lngDirSize += objFileInfo.Length
      Next

      'Рекурсивно вызывать функцию для получения
      'размера подпапок...
      If IncludeSubFolders Then
         For Each objSubFolder In objDir.GetDirectories()
            lngDirSize += GetFolderSize(objSubFolder.FullName)
         Next
      End If
   Catch Ex As Exception
      MessageBox.Show(Err.Description)
   End Try
   Return lngDirSize
End Function

Источник: http://www.vbnet.ru/

Добавить комментарий

Как получить размер папки