2024年11月21日 星期四 首页 编程论坛 技术文档 黑客安全 源代码 应用下载 电子图书 电脑硬件 游戏开发 休闲娱乐 编程网站  
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

请问怎么遍历一个文件夹里的文件

duxingzhe2005

初级程序员

Rank: 2Rank: 2
1# 大中 小发表于 2006-5-10 16:36  只看该作者

请问怎么遍历一个文件夹里的文件

请问怎么遍历一个文件夹里的文件，并把文件名读取出来

TOP

冰霜之子

初级程序员

Rank: 2Rank: 2
2# 大中 小发表于 2006-5-10 16:37  只看该作者
<html><body  style="font-size:  13px">  
读取一个文件夹或子文件夹内的所有文件范例<br><br>  
<%  
   Dim  objFSO,objFolder,objFile,FF    '声明  objFSO  变量存放对象实例  
   FF  =  Server.MapPath("./images")  
   Set  objFSO  =  Server.CreateObject("Scripting.FileSystemObject")  
   If  objFSO.FolderExists(ff)  Then  
       Response.write  "文件夹  "&ff&"  里所有的文件：<br>"  
       Set  objFolder  =  objFSO.GetFolder(ff)  
       For  Each  objFile  in  objFolder.Files  
         Response.Write  objFile.Name  &  "<br>"  
       Next  
   Else  
       Response.Write  "文件夹"&ff&"不存在，无法读取相关信息！"  
   End  If  
   Set  objFolder  =  Nothing  
   Set  objFSO  =  Nothing      '释放  FileSystemObject  对象实例内存空间  
%>  
</body></html>

TOP

xuyaoairen

初级程序员

Rank: 2Rank: 2
3# 大中 小发表于 2006-5-10 16:37  只看该作者
<%@  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  "  
---"   
　　　　　　　　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:盘   
%>

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题