Option Explicit Dim fso,folder,colfiles Set fso = CreateObject("scripting.filesystemobject") Set folder = fso.GetFolder("d:\") Set colfiles = folder.Files MsgBox colfiles.Item()复制代码