怎样统计文件夹下文件的数量

你好ztx290，用VB编写个答埋小程序统计吧，否则绝咐，你是没有办法的。

Dim FileAttrib As VbFileAttribute

Dim intFileCount As Integer

Dim strFileName As String

FileAttrib = vbDirectory Or vbHidden Or vbReadOnly Or vbSystem Or vbArchive

intFileCount = 0

strFileName = Dir(路径,FileAttrib)

Do While Not strFileName = ""

intFileCount = intFileCount + 1

strFileName = Dir(,FileAttrib)

Loop

intFileCount就并举纯是该目录下的文件和子目录总数

如果不需要计算子目录,则

FileAttrib = vbHidden Or vbReadOnly Or vbSystem Or vbArchive

即可

放上一个

filelistbox控件，慧圆

然后设置

file1.path="你要统计的文轿扮件夹路径"

'file1

是filelistbox默认的控件名

然后：file1.listcount属性就是文件夹中文件的数目。

可以将它赋值给一个变量进行显示前帆塌

或

打印

在窗体上

---