检索某个文件夹内的所有文件，哪位高手有现成的方法或过程提供

检索某个文件夹内的所有文件，谁有现成的方法或过程提供
近期用vb给水利工程做个cs结构检索器。现在需要检索某个文件夹内的所有文件（注：文件夹内只有word文档文件）。要获得文件个数和所有word文档文件的名称放到数组内。谁有现成的方法或过程提供。谢谢！否则我还要自己编。时间比较紧迫。

[解决办法]
现成的？
自己写一个也要不了几分钟。

参考一下吧，简单修改就可以实现你的要求了：

VB code

Dim strFileName$, strPath$, iCount$strPath = "K:\图书馆\程序设计\计算机图形学基础教材\教案\105-108 游戏地图高级实现（LOD）"strFileName = Dir$(strPath & "\*.doc", vbHidden Or vbSystem)iCount = 0While (Len(strFileName) > 0)    iCount = iCount + 1    Debug.Print strFileName    strFileName = Dir$()WendDebug.Print "共有 " & iCount & " 个文件。"