|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@ Language=VBScript %> <% \\\'我写的一个遍历目录以及目录下文件的函数, %> <% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolders nowpath=path "" objSubFolder.name Response.Write nowpath set objFiles=objSubFolder.Files for each objFile in objFiles Response.Write "<br>---" Response.Write objFile.name next Response.Write "<p>" bianli(nowpath)\\\'递归 next set objFolder=nothing set objSubFolders=nothing set fso=nothing end function %> <% bianli("d:") \\\'遍历d:盘 %> 返回类别: 教程 上一教程: TXT.WORD文档下载在本地,而不是在浏览器中打开 下一教程: ASP系列讲座(六)编写过程 您可以阅读与"遍历目录以及目录下文件的函数"相关的教程: · 大灰狼的ASP工具箱??用ASP读INI配置文件的函数 · 用ASP读INI配置文件的函数 · 取得一个目录下的文件 · 在ASP中自动创建多级文件夹的函数(使用FSO) · 在ASP中自动创建多级文件夹的函数 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |