| |
Как получить размер папки |
|
| |
Функция 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
|
|
| |
|
|
|
|