asp遍历站点所有文件夹的代码

<!-- 遍历站点所有文件夹 -->  
<style>  
<!--  
body{font-size:12px;}  
-->  
</style>  
<script language="vbscript">  
<!--  
sub fsubmit()  
form1.submit  
End sub  
-->  
</script>  
<form name="form1" method="post" action="findfolder.asp">  
<select size="1" name="fpath" onchange="fsubmit()">  
<option value="0" selected>--请选择--</option>  
<option value="/">整个站点</option>  
<option value=".">当前目录</option>  
<%  
Dim fso,objfolder,objfile,strpath  
set fso=server.createobject("Scripting.FileSystemObject")

strpath="."  
call bl(strpath)

function bl(strpath)  
set objfolder=fso.getfolder(server.mappath(strpath))

for each objsubfolder in objfolder.subfolders  
Response.write "<option value='" & strpath & "\" & objsubfolder.name & "'>" & replace(strpath,".","") & "\" & objsubfolder.name & "</option>"  
call bl(strpath & "\" & objsubfolder.name)  
next

End function  
%>  
</select>  
</form>

<%  
fpath=Request.form("fpath")

if fpath<>"0" and fpath<>Empty then

Response.write "<font color=""#FF0000"">当前文件夹：" & replace(fpath,".","") & "</font><br><br>"

set objfolder=fso.getfolder(server.mappath(fpath))

for each objsubfolder in objfolder.subfolders  
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"  
next

Response.write "<br>"

for each objfile in objfolder.files  
Response.write "文件名称：" & objfile.name & "<br>"  
next

set objfolder=nothing

End if  
%>

赞 (0)

相关推荐

  • PHP遍历某个目录下的所有文件和子文件夹的实现代码

    复制代码 代码如下: <?php function read_all_dir ( $dir )    {        $result = array();        $handle = opendir($dir);        if ( $handle )        {            while ( ( $file = readdir ( $handle ) ) !== false )            {                if ( $file != '.'

  • php 遍历显示文件夹下所有目录、所有文件的函数，没有分页的代码

    <pre> <?php /********************** 一个简单的目录递归函数 第一种实现办法:用dir返回对象 ***********************/ function tree($directory) { $mydir=dir($directory); echo "<ul>\n"; while($file=$mydir->read()){ if((is_dir("$directory/$file"))

  • 使用PHP遍历文件夹与子目录的函数代码

    使用PHP遍历文件夹与子目录的函数代码

    我们要使用的函数有 Scandir,它的作用是列出指定路径中的文件和目录,就像 Dir 一样. > 与更强力的 Glob() 函数,作用是以数组的形式返回与指定模式相匹配的文件名或目录. > 友情提醒,千万别像小邪那样在电脑前面呆太长时间,否则就会像小邪一样得见鬼的高血糖. 一. 遍历单层文件夹: > 在扫描单层文件夹的问题是,两个函数的结果虽有不同,不过表现是相差不大的. > Scandir 函数会提供额外两行,分别是 "." 和 ".."

  • C++遍历文件夹获取文件列表

    本文实例类似遍历一个文件夹然后获得该文件夹下的文件列表,可以随意切换文件目录,本来是用在我们小组写的简易ftp服务器上的一个给客户端显示的一个小插件,总之单拿出来应该没啥含量,调用了windows的一些API. 实例代码: #include<iostream> #include<stdlib.h> #include<windows.h> #include<fstream> #include<stdio.h> #include<vector&

  • asp.net遍历目录文件夹和子目录所有文件

    复制代码 代码如下: using System; using System.Collections.Generic; using System.Text; using System.IO; using System.Threading; namespace copefile {     class Program     {         static void Main(string[] args)         {             string testDir = "e:/xun

  • 深入探讨:linux中遍历文件夹下的所有文件

    linux C 遍历目录及其子目录 复制代码 代码如下: #include <stdio.h>  #include <string.h> #include <stdlib.h>  #include <dirent.h>  #include <sys/stat.h>  #include <unistd.h>  #include <sys/types.h> using namespace std;void listDir(ch

  • c#递归遍历文件夹示例

    c#递归遍历文件夹示例

    代码很简单,指定需要递归遍历的文件夹和遍历规则就要可以运行了 复制代码 代码如下: /// <summary>/// 递归获取文件夹目录下文件/// </summary>/// <param name="pathName">需要递归遍历的文件夹</param>/// <param name="fileRule">遍历规则『委托』</param>public static void LoopFol

  • js+FSO遍历文件夹下文件并显示

    <SCRIPT language=javascript src="pict/datas.ini"></SCRIPT> <script language=javascript> var s=""; for(var i = 0; i < datas.length ; i++){  s+=datas[i]+"||||"; } document.write(s); </script> <scri

  • php实现的遍历文件夹下所有文件,编辑删除

    复制代码 代码如下: <?php /* 遍历文件夹; 功能:(a)可删除文件 (b)可编辑文本,网页文件 (c)可删除文件夹,前提是该文件夹为空 (d)可建立文件,文件夹,修改文件夹名称; lost63.com原创, 转载请注明出处. 交流QQ:35501547 */ $path=$DOCUMENT_ROOT; $path=str_replace("/","\\",$path); //指定文件夹 $path=$path."\\"; if($

  • php遍历目录与文件夹的多种方法详解

    遍历目录或遍历目录下指定类型的文件,这是每一个童鞋在写程序的时候难免会用到的.PHP本身也提供了很多灰常有用的函数,正确地使用它们,不会有错滴.下面就我个人学习过程中的一些总结,希望对想学PHP的童鞋有所帮助.本函数可以列出指定目录下所有的文件(包括子目录下的) 复制代码 代码如下: function getfiles($path){ foreach(scandir($path) as $afile){if($afile=='.'||$afile=='..') continue; if(is_d

随机推荐