显示目录下所有的文件(含文件夹)

2016-01-29 19:45 4 1 收藏

显示目录下所有的文件(含文件夹),显示目录下所有的文件(含文件夹)

【 tulaoshi.com - ASP 】

       <%
   set A=server.createobject("scripting.filesystemobject")
   path="G:count"
   i=0
   response.write "主目录:<br>"&path&"<ul>"
   re
   response.write "</li></ul>" '-----------------主目录
   sub re()
   B=B&i
   C=C&i
   D=D&i
   E=E&i
   set B=A.getfolder(path) '----------------------主目录下文件
   if i>=2 then response.write "<ul>"
   for each E in B.files
   response.write "<li>"&E.name&"</li>"
   next
   if i>=2 then response.write "</ul>"
   '----------------------End '---------------------------主目录下文件夹 set C=B.SubFolders
   if i>=2 then response.write "<ul>"
   for each D in C
   response.write "<li><b>"&D.name&"</b><font color=#c0c0c0>(DIR)</font>"
   i=i+1
   path=D
   re2 '显示子目录
   next
   if i>=2 then response.write "</ul>"
   '---------------------------End
   end sub '-----------------次目录
   sub re2()
   B=B&i
   C=C&i
   D=D&i
   set B=A.getfolder(path) '-----------------------------次目录下文件
   response.write "<ul>"
   for each E in B.files
   response.write "<li>"&E.name&"</li>"
   next
   response.write "</ul>"
   '-----------------------------End '-----------------------------次目录下文件夹
   set C=B.SubFolders
   response.write "<ul>"
   for each D in C
   response.write "<li><b>"&D.name&"</b><font color=#c0c0c0>(DIR)</font></li>"
   i=i+1
   path=D
   re '显示子目录
   next
   response.write "</ul>" '-----------------------------End
   end sub
   %>
  
  

 

来源:http://www.tulaoshi.com/n/20160129/1510032.html

延伸阅读
进入正题: 一开始直接使用GetDirectoryNames("folder") string[] folderlist; IsolatedStorageFile iso = IsolatedStorageFile.GetUserStoreForApplication(); if(iso.DirectoryExists("folder")) { folderlist=iso.GetDirectoryNames("folder"); } 运行后发现这样写并不能获取到folder的子文件夹,经过...
标签: 电脑入门
问:在Windows XP系统下,发现文件夹和文件夹都显示为蓝色和绿色,是否中毒了? 答:这些文件和文件夹属于加密或压缩的NTFS文件,属于正常现象。如果不希望显示为蓝色,可以打开我的电脑,依次单击工具菜单→文件夹选项→查看,在列表中取消用彩色显示加密或压缩的NTFS文件,然后单击确定按钮退出。
标签: 电脑入门
QQ目录下各文件及目录用途解析 以安装原版qq以后目录下的文件为例进行分析.不分析视频音频.及其主要功能 []         为目录 [chat]            聊天室 [chattheme]           聊天室 [mail...
iPhone在文件夹内怎么新建文件夹   iPhone怎么在文件夹内新建文件夹?相信很多朋友都不会,于是在各处搜索文件夹套文件夹的方法。但是试过了都失败了,于是乎自己摸索了一下,本教程支持iPad、itouch、iPhone,支持iOS8.4。   举个简单的例子好了,假设要把两个文件夹或更多(图上是两个)放在一个文件夹里面,左边的为A,...
标签: 电脑 文件 加密
下载加密工厂登录 管理员身份登录软件,试用版ID统一为888. 如果是正式版的可以勾选“保存登录ID” 进入界面 点击“添加文件”添加需要加密的文档。试用版一次性只能添加10个文件 高级管理 管理员可以在加密之前,进入右下角的“管理功能”选择“高级管理”对文件进行详细的设置。具体设置选项如下图 开始加密 ...

经验教程

976

收藏

28
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部