悬崖之树 当前离线
上尉
Option Explicit Dim fso,folder,colfiles Set fso = CreateObject("scripting.filesystemobject") Set folder = fso.GetFolder("d:\") Set colfiles = folder.Files MsgBox colfiles.Item()复制代码
czjt1234 当前在线
少校
TOP