asp读取指定目录下的文件名
bianli(Server.MapPath("/")+"\pic")
InStrRev("abcd.jpg", ".") 计算出abcd.jpg中第一次出现.所在的位置是第几个字符=5
mid("abcd.jpg",1,4) 取前四位abcd
mid("abcd.jpg",5) 从五位往后取（包括第五位） .jpg
取前缀abc
FullPath = "abc.jpg"
f = mid(FullPath,1,InStrRev(FullPath, ".")-1)
Response.Write f
娶后缀jpg
FullPath = "abc.jpg"
f = mid(FullPath,InStrRev(FullPath, ".")+1)
Response.Write f
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")'创建一个Folder对象
foldername=server.mappath("./")
Set MyFolder=MyFileObject.GetFolder(foldername)
i=0'循环显示其中文件夹
response.write "显示文件夹："
For Each thing in MyFolder.subfolders
Response.Write("<br>"&thing)
i=i+1
Next
response.write "<br>共有"&i&"个文件夹"
response.write "<p>显示文件名"'循环显示其中文件
i=0
For Each thing in MyFolder.Files
Response.Write("<br>"&thing)
i=i+1
Next
response.write "<br>共有"&i&"个文件"
%>
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder(server.mappath("."))
For Each thing in MyFolder.Files
thing=mid(thing,InStrRev(thing, "\")+1)
f = mid(thing,InStrRev(thing, ".")+1)
Set Reg = New RegExp
Reg.Pattern="test"
Set Matche=Reg.Execute(thing) '正则匹配Matches.Count<1表示不选；Matches.Count>1 就是匹配到选中
Reg.Pattern="lin"
Set Matches=Reg.Execute(thing)
IF Matches.Count<1 And Matche.Count<1 And f="asp" And thing<>"lin.asp" And thing<>"tpl.asp" And thing<>"tiao.asp" And thing<>"master.asp" And thing<>"delete.asp" Then
Response.Write thing
Response.Write("<br>")
End If
Next
%>
------------------------------------------------------------------------------------------------------------------------------------
生用的遍历文件：
<%@language="vbscript" codepage="65001"%>
<%
Response.Expires = 0
function bianli(path)
dim fso 'fso对象
dim objFolder '文件夹对象
dim objFiles '文件集合
dim objFile '文件对象
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=objFolder.Files
for each objFile in objFiles
Response.Write (objFile.name)
Response.Write "<br/>"
Next
bianli(nowpath) '调用递归
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli(Server.MapPath("/") + "/new") '调用bianli()函数,这里是遍历当前目录下的new文件夹
%>
----------------------------------------------------------------------------------------------------
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")'创建一个Folder对象
fpath="."'Request.form("fpath")
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>"
exitname=fso.GetExtensionName(objfile.name)'文件后缀也可以用这获取f = mid(thing,InStrRev(thing, ".")+1)'取asp后缀的文件 f="asp"
response.Write exitname & "<br>"
next
set objfolder=nothing
%>
-----------------------------------------------------------------------------------------
<%
Sub GetFolderObj(FD_getfolder)
For each SFolder in FD_getfolder.subfolders
call GetFileObj(SFolder)
call GetFolderObj(SFolder)
Next
End Sub
Sub GetFileObj(FD_getfile)
WritePath(FD_getfile)
For each MF in FD_getfile.files
call WriteFileMes(MF)
Next
End Sub
Sub WriteFileMes(MyFileObj)
%>
<tr bgcolor="#FFFFD0">
<td><%=MyFileObj.name%></td>
<td><%=MyFileObj.size%></td>
<td><%=MyFileObj.DateCreated %></td>
<td><%=MyFileObj.DateLastAccessed%></td>
<td><%=MyFileObj.DateLastModified%></td>
<td><%=MyFileObj.Type%></td>
</tr>
<%
End Sub
Sub WritePath(FDObj)
%>
<tr>
<td colspan="6" bgcolor="#81BDD3" ><%=FDObj.path%>下面的文件有:</td>
</tr>
<%
End Sub
Sub main()
Set fso =Server.CreateObject("Scripting.FileSystemObject")
Set PFD=fso.getfolder(server.MapPath("."))
Response.Write("<table>")
call GetFileObj(PFD)
call GetFolderObj(PFD)
Response.Write("</table>")
End sub
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>所有文件</title>
<style type="text/css">
<!--
td {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
}
-->
</style>
</head>
<body>
<% call main() '调用主程序 %>
</body>
</html>
-----------------------------------------------------------------------------------------
asp读取指定目录下的文件名的更多相关文章
- Java 读取指定目录下的文件名和目录名
需求:读取指定目录下的文件名和目录名 实现如下: package com.test.common.util; import java.io.File; public class ReadFile { ...
- Python--通过索引excel表将文件进行文件夹分类的脚本+读取指定目录下所有文件名的脚本
1.通过索引excel表将文件进行文件夹分类的脚本,此脚本由于将ip和id对应并生成对应id的文件夹将文件进行分类,也可以任意规定表格内容,通过vul_sc_ip.txt和xlsx文件进行索引. # ...
- python中获取指定目录下所有文件名列表的程序
http://blog.csdn.net/rumswell/article/details/9818001 # -*- coding: utf-8 -*-#~ #------------------- ...
- iOS案例：读取指定目录下的文件列表
// // main.m // 读取指定目录下的文件列表 // // Created by Apple on 15/11/24. // Copyright © 2015年 Apple. All rig ...
- python获取指定目录下所有文件名os.walk和os.listdir
python获取指定目录下所有文件名os.walk和os.listdir 觉得有用的话,欢迎一起讨论相互学习~Follow Me os.walk 返回指定路径下所有文件和子文件夹中所有文件列表 其中文 ...
- 遍历并读取指定目录下的所有文件内容，写入Map集合然后输出在控制台和本地文件
public class FileWrite { public static void main(String[] args) throws Exception { //封装数据源目录 File sr ...
- Python读取指定目录下指定后缀文件并保存为docx
最近有个奇葩要求 要项目中的N行代码 申请专利啥的 然后作为程序员当然不能复制粘贴 用代码解决.. 使用python-docx读写docx文件 环境使用python3.6.0 首先pip安装pytho ...
- SAS 读取指定目录下文件列表宏
OPTIONS PS=MAX LS=MAX NOCENTER SASMSTORE=SASUSER MSTORED MAUTOSOURCE;/*获取指定文件夹的指定类型的所有文件*/%MACRO GET ...
- java批量修改指定目录下的文件名
package io; import java.io.File; import java.io.IOException; /** * @Auther: Code * @Date: 2018/9/9 1 ...
随机推荐
- keepalived问题
Sep 30 11:41:34 XSXSH-LB2 Keepalived[2735]: Starting Keepalived v1.2.12 (04/08,2014) Sep 30 11:41:34 ...
- insertAdjacentHTML方法详解
添加HTML内容与文本内容以前用的是innerHTML与innerText方法, 最近发现还有insertAdjacentHTML和 insertAdjacentText方法, 这两个方法更灵活,可以 ...
- 浅谈 zookeeper 原理,安装和配置
当前云计算流行, 单一机器额的处理能力已经不能满足我们的需求,不得不采用大量的服务集群.服务集群对外提供服务的过程中,有很多的配置需要随时更新,服务间需要协调工作,那么这些信息如何推送到各个节点?并且 ...
- 七、oracle 表查询二
1.使用逻辑操作符号问题:查询工资高于500或者是岗位为manager的雇员,同时还要满足他们的姓名首字母为大写的J?select * from emp where (sal > 500 or ...
- 使用NSURLProtocol实现UIWebView的离线缓存
http://blog.csdn.net/youcanping2008/article/details/9240487
- 关于malloc和free函数的用法
原文:http://blog.pfan.cn/vfdff/33507.html 个人总结 在C语言的学习中,对内存管理这部分的知识掌 握尤其重要!之前对C中的malloc()和free()两个函数的了 ...
- VMware 8安装苹果操作系统Mac OS X 10.7 Lion正式版
今天介绍下VM8下安装Mac OS X 10.7 1.工具篇 下载Vmware Workstation 8.0正式版http://115.com/file/bhyk1l2u# ...
- hdu_4824_Disk Schedule(dp)
题目连接:http://acm.hdu.edu.cn/showproblem.php?pid=4824 题意:中文,不解释 题解:双调欧几里德旅行商问题,具体可看dp双调欧几里德旅行商,这里注意的是起 ...
- Github建站全攻略
本系列为原创,发表在我的github主页,详细介绍了如何在github上建立个人网站,还包括域名绑定.评论功能.站内搜索等辅助功能的介绍,欢迎交流. 一步步在GitHub上创建博客主页(6) 本篇 ...
- Thinkphp与Ucenter整合笔记
ucenter手册:http://www.phpddt.com/manual/ucenter/html/index.htm 参考:http://www.thinkphp.cn/topic/1557.h ...