关于FSO读取文件名如何去掉扩展名

2008-12-05 12:06:08 330 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用ASP 取得目录下的文件名 ================================================================函数名称：FileList函数功能：列出目录下所有文件主要参数说明：1——FolderUrl 虚拟路径不可为空2----FileExName 文件扩展名函数返回值：收文记录======================================== 阅读详情



<%  

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 

dim nam,dz

nam = objFile.name 

dz=+  "\"  +  objSubFolder.name +  "\" +objFile.name 

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(Request.Form("d:"))  ''遍历d:盘  

%>