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/ 

 

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


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic .NET Файловая система Как получить размер папки  
Powered by Exponenta -