请教如何快速获取一个文件夹内有多少个word文档

请问怎么快速获取一个文件夹内有多少个word文档
请问怎么快速获取一个文件夹内有多少个word文档

[解决办法]
使用Dir$循环计数，如下是获取f:\document\目录中doc后缀文件的个数countOf：

VB code

Dim file As String, countOf As Longfile = Dir$("f:\document\*.doc")Do Until file = ""    countOf = (countOf + 1)    file = Dir$()LoopMsgBox countOf
[解决办法]
FSO也可以实现，但似乎不如使用Dir好
[解决办法]
用dir列出某个目录的文件,如果给的路径参数过长会出现错误53文件未找到.
我的vb执行下面的就出错了.
dir(string(&H110,"0"))

小心些比较好
[解决办法]
这段程序可以遍历目录下所有的文件，如果要查DOC文件就把FileType赋值为"doc"

VB code
Private Function SearchFiles(path As String, FileType As String)    Dim Files()  As String '文件路径    Dim Folder() As String '文件夹路径    Dim a, b, c As Long    Dim sPath As String             Dim Fname As String '定义文件名      On Error Resume Next           If Right(path, 1) <> "\" Then path = path & "\"    sPath = Dir(path & FileType) '查找第一个文件    Do While Len(sPath) '循环到没有文件为止        a = a + 1        ReDim Preserve Files(1 To a)              Files(a) = path & sPath '将文件目录和文件名组合,并存放到数组中         daxiao = FileLen(Files(a))         time1 = FileDateTime(Files(a))        Files(a) = path & sPath & ("__") & daxiao & ("__") & time1          sPath = Dir '查找下一个文件        DoEvents '让出控制权    Loop    sPath = Dir(path & "\", vbDirectory) '查找第一个文件夹    Do While Len(sPath) '循环到没有文件夹为止        If Left(sPath, 1) <> "." Then '为了防止重复查找            If GetAttr(path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。                b = b + 1                ReDim Preserve Folder(1 To b)                                Folder(b) = path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中            End If        End If        sPath = Dir '查找下一个文件夹        DoEvents '让出控制权    Loop