asp遍历目录以及目录下文件的函数

遍历|遍历目录|函数

<%@ 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:盘
%>

时间： 2024-10-28 05:59:44

asp遍历目录以及目录下文件的函数的相关文章

我写的一个遍历目录以及目录下文件的函数,看看能不能放到精华区呀？

遍历|遍历目录|函数|精华 <%@ Language=VBScript %><%  '我写的一个遍历目录以及目录下文件的函数,%><%    function bianli(path)        set fso=server.CreateObject("scripting.filesystemobject")             on error resume next        set objFolder=fso.GetFolder(path

如何知道目录及子目录下文件的数量

以下是我们在 find 命令中使用的选项,如下所示: -type - 指定要搜索的文件类型,在上面的情况下,f 表示查找所有常规文件. -print - 打印文件绝对路径. 以下是我们 wc 命令中使用的选项,如下所示: -l - 此选项打印换行符的总数,也即由 find 命令输出的绝对文件路径总数. find 命令的一般语法. # find . -type f -print | wc -l $ sudo find . -type f -print | wc -l 重要:使用 sudo 命令来读

遍历目录以及目录下文件的函数

遍历|遍历目录|函数|遍历|遍历目录|函数 <%@ Language=VBScript%><%function bianli(path)set fso=server.CreateObject("scripting.filesystemobject") on error resume nextset objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFo

遍历目录以及目录下文件的函数_FSO专题

<%@ 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 objSubFolde

php读出目录下的所有目录及子目录下文件

 代码如下 复制代码 <?php $dirname=@opendir("abc")or die("打开目录不成功<br>"); readdir($dirname)."<br>"; readdir($dirname)."<br>"; while(($filess=readdir($dirname))!=false) {   if(is_dir("abc/".$file

php下实现在指定目录搜索指定类型文件的函数_php技巧

复制代码 代码如下: function bdir($dir,$typearr){ $ndir = scandir($dir); foreach ($ndir as $k => $v){ if ($v == '.' || $v == '..'){ continue; } if (filetype($dir.$v) == 'file'){ $arr = explode('.',$v); $type = end($arr); if (in_array($type,$typearr)){ echo $d

ASP，FSO遍历目录及目录下文件

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

ASP，FSO遍历目录及目录下文件_FSO专题

<%@ Language=VBScript %> <% '我写的一个遍历目录以及目录下文件的函数, %> <% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders

asp遍历目录及子目录的函数_应用技巧

<%@ Language=vbscript %>  <%   '遍历目录以及目录下文件的函数  %>  <%    Function Bianli(path)      Set Fso=server.createobject("scripting.filesystemobject")        On Error Resume Next      Set Objfolder=fso.getfolder(path)      Set Objsubfolde