下面的代码是读取当前文件夹的所有文件：
'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder(".").files
for each f in fs
msgbox f.path
next
'══代══码══结══束════
说明：
使用folder对象中的files属性，获取文件集合，然后用for each枚举。
枚举到的都是一个file对象，当然可以直接应用其属性和方法。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024