asp读取指定目录下的文件名

mac2022-06-30 86

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.subfoldersResponse.Write("<br>"&thing)i=i+1Nextresponse.write "<br>共有"&i&"个文件夹"response.write "<p>显示文件名"'循环显示其中文件i=0For Each thing in MyFolder.FilesResponse.Write("<br>"&thing)i=i+1Nextresponse.write "<br>共有"&i&"个文件"%>

<%Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")'创建一个Folder对象Set MyFolder=MyFileObject.GetFolder(server.mappath("."))For Each thing in MyFolder.Filesthing=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 thingResponse.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) NextEnd Sub

Sub GetFileObj(FD_getfile) WritePath(FD_getfile) For each MF in FD_getfile.files call WriteFileMes(MF) NextEnd 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%>

-----------------------------------------------------------------------------------------

转载于:https://www.cnblogs.com/alex-13/p/3953215.html