在VB中怎么统计一个文件夹下的文件数目

来源：百度知道 编辑：UC知道 时间：2024/06/12 06:22:54
一楼是谁发的，我试了，不能用
还有知道的吗？
最好能得到文件夹下所有文件的文件名

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
即可

shell dir