 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@ Language=VBScript %> <% \\\'================================================================ \\\'函数名称：FileList \\\'函数功能：列出目录下所有文件 \\\'主要参数说明： \\\'1――FolderUrl 虚拟路径 不可为空 \\\'2----FileExName 文件扩展名 \\\'函数返回值：收文记录 \\\'================================================================ Function FileList(FolderUrl,FileExName) Set fso=Server.CreateObject("Scripting.FileSystemObject") Set folder=fso.GetFolder(Server.MapPath(Trim(FolderUrl))) Set file=folder.Files FileList="" For Each FileName in file If Trim(FileExName)<>"" Then If InStr(Trim(FileExName),Trim(Mid(FileName.Name,InStr(FileName.Name,".")+1,len(FileName.Name))))>0 Then FileList=FileList&FileName.Name&"<br>" End If Else FileList=FileList&FileName.Name&"<br>" End If Next Set file=Nothing Set folder=Nothing Set fso=Nothing End Function Response.Write FileList("/你的虚拟路径","gif,GIF,jpg,JPG") %> 返回类别: 教程 上一教程: 把ASP程序封装成可执行文件(无需IIS WEB服务器)直接运行的治理系统 下一教程: 正则表达式简介(1-3) 您可以阅读与"取得一个目录下的文件"相关的教程: · 读取目录下的文件得到一个数组 · 读取目录下的所有文件（源码） · 检查当前目录下是否存在指定的文件，假如存在就重新命名 · 列出指定目录下的所有文件和目录 · 读取目录下的所有文件(源码) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
