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 >
