玩酷之家

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

【VB.NET】获取路径下的文件数量

[复制链接]

20

主题

21

帖子

909

积分

高级会员

Rank: 4

积分
909
QQ
发表于 2020-2-6 10:29:43 | 显示全部楼层 |阅读模式
本帖最后由 1059-Studio 于 2020-2-6 10:31 编辑
  1.     Public Function GetFilesCount(ByVal 路径 As String, Optional ByVal 子目录 As Boolean = False) As Integer
  2.         Dim totalFile As Integer = 0
  3.         Dim dirInfo As New System.IO.DirectoryInfo(路径)
  4.         totalFile += dirInfo.GetFiles().Length
  5.         If 子目录 = True Then
  6.             For Each subdir As System.IO.DirectoryInfo In dirInfo.GetDirectories()
  7.                 totalFile += GetFilesCount(路径)
  8.             Next
  9.         End If
  10.         Return totalFile
  11.     End Function
复制代码


湖边的稻草 1059 Studio
回复

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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