Мне нужно рассчитать размер каталога в VB .Net
Я знаю следующие 2 метода
Метод 1: из MSDN http://msdn.microsoft.com/en-us/library/system.io.directory.aspx
В следующем примере вычисляется размер каталога и его подкаталогов, если они есть, и отображается общий размер в байтах.
Imports System
Imports System.IO
Public Class ShowDirSize
Public Shared Function DirSize(ByVal d As DirectoryInfo) As Long
Dim Size As Long = 0
' Add file sizes.
Dim fis As FileInfo() = d.GetFiles()
Dim fi As FileInfo
For Each fi In fis
Size += fi.Length
Next fi
' Add subdirectory sizes.
Dim dis As DirectoryInfo() = d.GetDirectories()
Dim di As DirectoryInfo
For Each di In dis
Size += DirSize(di)
Next di
Return Size
End Function 'DirSize
Public Shared Sub Main(ByVal args() As String)
If args.Length <> 1 Then
Console.WriteLine("You must provide a directory argument at the command line.")
Else
Dim d As New DirectoryInfo(args(0))
Dim dsize As Long = DirSize(d)
Console.WriteLine("The size of {0} and its subdirectories is {1} bytes.", d, dsize)
End If
End Sub 'Main
End Class 'ShowDirSize
Метод 2: из Что такое лучший способ рассчитать размер каталога в .NET?
Dim size As Int64 = (From strFile In My.Computer.FileSystem.GetFiles(strFolder, _
FileIO.SearchOption.SearchAllSubDirectories) _
Select New System.IO.FileInfo(strFile).Length).Sum()
Оба эти метода работают нормально. Однако на вычисление размера каталога уходит много времени, если есть много подпапок. например, у меня есть каталог со 150 000 подпапок. Вышеупомянутые методы заняли около 1 часа 30 минут, чтобы рассчитать размер каталога. Однако, если я проверю размер в окнах, это займет меньше минуты.
Пожалуйста, предложите более эффективные и быстрые способы расчета размера каталога.
