如果不用FileSystemObject，还有没有别的办法可以……

[newskyline]

实现搜索一个文件夹中的文件个数？

[lanying]

那就没办法了

[neweb]

用 ADO.Stream 看行不行，文件和目录功能应该没有 FileSystemObject 强。
仔细看下帮助吧。

[newskyline]

各位各位,加分了啊，小弟的分值现在只有40分了，对于这么一个简单的问题,我想高手马上就可以反应出是或者否,如果可以,请给点提示,如果不行,直接写NO就可以了,但是不要让我老等啊。谢了各位!

[hmbory]

写个组件吧！！更好用一些：）

[newskyline]

组件是自己写的吗？但是我的主页不支持组件啊。

[CCToWind]

奇怪，怎么会没有人回答呢：

Dim fso, f, f1, fc, s
Dim iCount

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("...") '写入目录名
Set fc = f.Files
iCount = 0
For Each f1 in fc
iCount = iCount + 1
Next

如果上面的统计把 . 和 .. 也统计在内了，你需要在最后：iCount = iCount - 2

[ayusay]

好像没有吧

[newskyline]

我真的很想知道耶,是不用FSO的方法,大哥.

[CCToWind]

现在知道另一个方法了：用WSH