玩酷之家

 找回密码
 立即注册
查看: 451|回复: 0

【VB.NET】获取文件夹大小

[复制链接]

20

主题

21

帖子

909

积分

高级会员

Rank: 4

积分
909
QQ
发表于 2020-2-6 10:32:24 | 显示全部楼层 |阅读模式
  1.     Public Function GetFolderSize(ByVal DirPath As String, Optional ByVal IncludeSubFolders As Boolean = True) As Long
  2.         Dim lngDirSize As Long
  3.         Dim objFileInfo As FileInfo
  4.         Dim objDir As DirectoryInfo = New DirectoryInfo(DirPath)
  5.         Dim objSubFolder As DirectoryInfo
  6.         Try
  7.             'add length of each file
  8.             For Each objFileInfo In objDir.GetFiles()
  9.                 lngDirSize += objFileInfo.Length
  10.             Next
  11.             'call recursively to get sub folders
  12.             'if you don't want this set optional
  13.             'parameter to false
  14.             If IncludeSubFolders Then
  15.                 For Each objSubFolder In objDir.GetDirectories()
  16.                     lngDirSize += GetFolderSize(objSubFolder.FullName)
  17.                 Next
  18.             End If
  19.         Catch Ex As Exception
  20.             Ex.ToString()
  21.         End Try
  22.         Return lngDirSize
  23.     End Function
复制代码

湖边的稻草 1059 Studio
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2020-8-4 15:54 , Processed in 1.092002 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表