除了用adir()函数遍历所有文件，将文件夹中每个文件大小相加之外，还有什么更好的方法，比较有没有求文件夹大小的函数？

Clear
FSO=CreateObject("Scripting.FileSystemObject")
sourcepath="d:\相关材料" && 指定文件夹
oBjset = FSO.GetFolder(sourcepath)
? Transform(Int(oBjset.Size/1024)) && 返回包含在该文件夹里所有文件和子文件夹的大小(KB)

运行的错误提示。

WINXP VFP9代码

贴上你的代码看看

WINXP VFP9 测试成功。

是引用 Microsoft Scripting Runtime，看看系统没有安装FSO：
菜单--工具--对象浏览器，选择COM库，看看列表有无 Microsoft Scripting Runtime 项目

用FSO正解。