<% function bianli(path) ‘initiate path = server.mappath(path) set fso=server.CreateObject(scripting.filesystemobject) set objFolder=fso.GetFolder(path) set objfiles = objfolder.files ‘把文件名及文件路经存入theFiles数组 int slot = 0 Dim theFiles() redim theFiles(50) for each objFile in objFiles