vb中如何统计一个目录下的文件数目?

Question

我想做一个小程序,将一个文件夹下的所有文件名读出来,考虑到文件较多，想作个进度条显示读取进度.但是问题来了:没发统计文件夹下的文件总数,找了半天,只发现Scripting.Dictionary下有个count属性,但是没法用,望高人指点,呵呵，有礼了。

Answer 1

试试：(打出c;\test的文件总数和文件名)Private Sub Command1_Click()
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colFileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\Test'} Where " _
        & "ResultClass = CIM_DataFile")debug.print "total:"&cstr(colFileList.Count)For Each objFile In colFileList
debug.print  objFile.FileName
NextEnd Sub未经测试。