OnErrorResumeNext主要是第三行和第四行，不知道引用的是什么，属于什么引用规则。谢谢Dimfso,fldPath,fldfldPath="C:\Docume... On Error Resume Next
主要是第三行和第四行，不知道引用的是什么，属于什么引用规则。谢谢

Dim fso, fldPath, fld
fldPath = "C:\Documents and Settings\H\桌面\xx\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(fldPath)
MsgBox fldPath & "共有" & fld.Files.Count & "个文件" 楼上的有点不对哦.
Set fso = CreateObject("Scripting.FileSystemObject") 为创建FSO对象模型
Set fld = fso.GetFolder(fldPath) 为获得已有Folder对象的一个实例,及取得"C:\Documents and Settings\H\桌面\xx\"这个文件夹对象.

这样才可以使用文件夹对象的files.count属性来获得文件下下的文件数目.

简单地说fso就是文件系统对象.在VBA中引用这个是为了更好地操作文件,而不需要使用Excel VBA里面的open ,add方法来打开文件或者增加表什么的.比Excel VBA的文件对象更好用,更方便.

那么什么是fso对象模型呢?
从 Visual Basic 的第一版至今，VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句和函数来实现的。随着软件技术的不断发展，加上面向对象编程概念的日臻成熟，这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此，从VB6.0开始，微软提出了一个全新的文件系统对象FSO.

文件系统对象FSO的英文全称是File System Object ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用object.method这种在面向对象编程中广泛使用的语法，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。

再详细的解释: http://baike.baidu.com/view/347454.htm