引用一个FSO对象Dim fso As ObjectSet fso=CreateObject("Scripting.FileSystemObject")Set Fd=fso.GetFolder(路径)Fd.Files就是全部的文件名