用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 %>

c++ 遍历目录下文件

function:遍历目录下所有文件,返回文件总数,子文件夹总数(修改一下可以获得全部文件名等)。#include "stdlib.h" #include "direct.h" #include "s...
  • abcjennifer
  • abcjennifer
  • 2014年01月11日 20:28
  • 45782

python 遍历目录下所有文件

#!/usr/bin/python # -*- coding: utf-8 -*- import os def gci(filepath): #遍历filepath下所有文件,包括子目录 file...
  • xiaoxinyu316
  • xiaoxinyu316
  • 2016年03月04日 23:03
  • 752

Erlang递归列举目录下文件

Erlang递归列举目录下文件(金庆的专栏)%%%-------------------------------------------------------------------%%% @aut...
  • jq0123
  • jq0123
  • 2015年05月05日 17:06
  • 1377

使用Shell遍历目录及其子目录中的所有文件

新建一个shell文件 $ vi traveDir.sh 输入以下代码 #! /bin/bash function read_dir(){ for...
  • Register_man
  • Register_man
  • 2016年12月24日 15:57
  • 2873

用PHP遍历当前目录下所有文件

  • manbujingxin
  • manbujingxin
  • 2011年09月30日 15:00
  • 8268

perl 递归地遍历目录下的文件

#!/usr/bin/perl -w use strict; use File::Spec; local $\ ="\n";#当前模块的每行输出加入换行符 my %options; #目...
  • csujiangyu
  • csujiangyu
  • 2015年03月01日 14:14
  • 2383

递归遍历文件夹复制指定后缀文件

这个例子是使用了简单的递归写的 使用场景:当你想从N层文件夹内复制出你想要的格式文件时,只需要指定目录即可完成复制 本案例是复制.doc文件 package exp.study.use; im...
  • fan510988896
  • fan510988896
  • 2017年03月17日 14:44
  • 357

java遍历目录下的包括子目录下的所有文件

在java中遍历一个文件夹里边的所有文件,可以有两种方式:       一、递归遍历,通常也是开发者第一时间能想到的方法,递归遍历的优点是:实现起来相对简单,代码量相对较少,执行效率较高,缺点是:比较...
  • zhihaoma
  • zhihaoma
  • 2015年11月25日 23:13
  • 4994

linux下遍历当前目录下的所有文件和目录

#!/bin/sh   for file in ./* #遍历的文件是当前目录,其他目录可以通过修改这个参数来实现 do if test...
  • wanwenweifly4
  • wanwenweifly4
  • 2011年05月16日 21:30
  • 1258

php遍历目录里的css文件 下载图片

经常要仿人家的站点 但是网页另存为网站页面,其中所有在CSS里出现的背景图不能被一同下载;  因此写了这个PHP 比较简单; 使用的时候要修改里面的 几个地方就可以了;先上代码。。。 ...
  • sun886
  • sun886
  • 2012年10月18日 15:53
  • 956
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用asp遍历目录下文件的例子
举报原因:
原因补充:

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