vb.net – 在VB .NET中计算目录大小的最佳方法是什么?

前端之家收集整理的这篇文章主要介绍了vb.net – 在VB .NET中计算目录大小的最佳方法是什么?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我需要在VB .Net中计算目录大小

我知道以下两种方法

方法1:来自MSDN http://msdn.microsoft.com/en-us/library/system.io.directory.aspx

‘以下示例计算目录的大小
‘及其子目录(如果有),并显示总大小
‘以字节为单位.

  1. Imports System
  2. Imports System.IO
  3.  
  4. Public Class ShowDirSize
  5.  
  6. Public Shared Function DirSize(ByVal d As DirectoryInfo) As Long
  7. Dim Size As Long = 0
  8. ' Add file sizes.
  9. Dim fis As FileInfo() = d.GetFiles()
  10. Dim fi As FileInfo
  11. For Each fi In fis
  12. Size += fi.Length
  13. Next fi
  14. ' Add subdirectory sizes.
  15. Dim dis As DirectoryInfo() = d.GetDirectories()
  16. Dim di As DirectoryInfo
  17. For Each di In dis
  18. Size += DirSize(di)
  19. Next di
  20. Return Size
  21. End Function 'DirSize
  22.  
  23. Public Shared Sub Main(ByVal args() As String)
  24. If args.Length <> 1 Then
  25. Console.WriteLine("You must provide a directory argument at the command line.")
  26. Else
  27. Dim d As New DirectoryInfo(args(0))
  28. Dim dsize As Long = DirSize(d)
  29. Console.WriteLine("The size of {0} and its subdirectories is {1} bytes.",d,dsize)
  30. End If
  31. End Sub 'Main
  32. End Class 'ShowDirSize

方法2:从What’s the best way to calculate the size of a directory in .NET?开始

  1. Dim size As Int64 = (From strFile In My.Computer.FileSystem.GetFiles(strFolder,_
  2. FileIO.SearchOption.SearchAllSubDirectories) _
  3. Select New System.IO.FileInfo(strFile).Length).Sum()

这两种方法都很好.但是,如果存在大量子文件夹,则需要花费大量时间来计算目录大小.例如,我有一个包含150,000个子文件夹的目录.上述方法花了大约1小时30分钟来计算目录的大小.但是,如果我从窗户检查尺寸不到一分钟.

请建议更好,更快的方法来计算目录的大小.

Though this answer is talking about Python,这个概念也适用于此.

Windows资源管理器以递归方式使用系统API调用FindFirstFile和FindNextFile来提取文件信息,然后可以通过结构WIN32_FIND_DATA:http://msdn.microsoft.com/en-us/library/aa365740(v=VS.85).aspx传回的数据非常快速地访问文件大小.

我的建议是使用P / Invoke实现这些API调用,我相信您将获得显着的性能提升.

猜你在找的VB相关文章