Question

如何用excel vba判断某文件夹内".xls"文件数据量？

如题，谢谢

Answer 1

sub 文件数()
Dim fso, fldPath, fld
On Error Resume Next
fldPath = "C:\Documents and Settings\某文件夹\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(fldPath)
MsgBox fldPath & "共有" & fld.Files.Count & "个文件"
end sub