Set oFs = Server.CreateObject("Scripting.FileSystemObject") Set oFolder = oFs.GetFolder(vServerFolder) 通过Folder对象的.Files集合的列举,可以获取文件夹下的文件,并且限制显示的文件类型为Excel。执行下面的HTML/ASP代码创建文件选择列表:
< select name="XlBook" > < % vOptions = "" For Each oFile In oFolder.Files If oFile.Type = "Microsoft Excel Worksheet" Then vOptions = vOptions & "< option >" & _ Server.HtmlEncode(oFile.Name) & "< /option > End If Next Response.Write vOptions % > < /select >