用asp遍历目录下文件的例子

原创 2005年02月26日 03:10:00

<%
'By aloxy ,E-mail:szyjj@hotmail.com,OICQ:331622229
sub ListFolderContents(path)

     dim fs, folder, file, item, url

     set fs = CreateObject("Scripting.FileSystemObject")
     set folder = fs.GetFolder(path)

    'Display the target folder and info.

     Response.Write("<li><b>" & folder.Name & "</b> - " _
       & folder.Files.Count & " files, ")
     if folder.SubFolders.Count > 0 then
       Response.Write(folder.SubFolders.Count & " directories, ")
     end if
     Response.Write(Round(folder.Size / 1024) & " KB total." _
       & vbCrLf)

     Response.Write("<ul>" & vbCrLf)

     'Display a list of sub folders.

     for each item in folder.SubFolders
       ListFolderContents(item.Path)
     next

     'Display a list of files.

     for each item in folder.Files
       url = MapURL(item.path)
       Response.Write("<li><a href=""" & url & """>" & item.Name & "</a> - " _
         & item.Size & " bytes, " _
         & "last modified on " & item.DateLastModified & "." _
         & "</li>" & vbCrLf)
     next

     Response.Write("</ul>" & vbCrLf)

     Response.Write("</li>" & vbCrLf)

   end sub

   function MapURL(path)

     dim rootPath, url

     'Convert a physical file path to a URL for hypertext links.

     rootPath = Server.MapPath("/")
     url = Right(path, Len(path) - Len(rootPath))
     MapURL = Replace(url, "/", "/")

   end function %>

相关文章推荐

Microsoft VBScript 编译器错误 错误 '800a0409' 的解决

1、在字符串后面加一些空格。 例:Response.Write "数据库连接出错,请检查连接字串。" 2、我的程序是utf-8编码的,里边有一段代码。。。在我本机上是好用的,可以正常显示这段话可是上传...

多线程爬虫抓取Infinity所有壁纸到本地

# -*- coding: utf-8 -*- __author__ = 'Peng' from bs4 import BeautifulSoup,Comment import urllib2 fr...

unix环境高级编程中的例子-----递归降序遍历目录层次结构,并按文件类型计数

推荐先阅读这两篇博客:  http://blog.chinaunix.net/uid-20384806-id-1954258.html   http://blog.chinaunix.net/u...

C#遍历某目录及其子目录下所有文件的一个例子

问题源于游戏汉化,由于要对汉化文本做某一种批处理,而这些文本集中在某一目录及其各层子目录中,于是如何遍历就成为了一个问题。 直接上代码,不过多解释了,只看checkFiles函数就行,其他和遍历没关...

Asp.Net Web Form c#TreeView遍历文件目录

aspx文件代码 ...

Java设计模式之《组合模式》及应用场景(遍历指定路径下的文件目录和文件为例子)

Java设计模式之《组合模式》及应用场景 出处地址http://www.cnblogs.com/V1haoge/p/6489827.html   组合模式,就是在一个对象中包含其他对象,这...

Asp.Net_文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)

using System; using System.Data; using System.Configuration; using System.Web; using System.Web....

利用C++Builder遍历文件目录(TXT)

  • 2007年12月18日 14:16
  • 2KB
  • 下载

Win32下C++遍历目录和文件的源码

#include #include #include using namespace std; //只能处理目录:lpPath只能是路径 void find(char *lpPath) { ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用asp遍历目录下文件的例子
举报原因:
原因补充:

(最多只允许输入30个字)