西安网站建设ASP读取文件夹以及子文件夹内容

11332015-04-13

西安网站建设ASP读取文件夹以及子文件夹内容,可用来批量入库,西安网站建设团队点墨网络竭诚为您服务。

<%  
Dim strpath  
s=0
strpath="\文件夹\"  
call bl(strpath)  

function bl(strpath)
Dim fso,objfolder,objfile
set fso=server.createobject("Scripting.FileSystemObject")    
set objfolder=fso.getfolder(server.mappath(strpath))  
for each objsubfolder in objfolder.subfolders  
fpath=strpath & "\" & objsubfolder.name
 if fpath<>"0" and fpath<>Empty then  
 title=replace(replace(replace(fpath,".",""),strpath,""),"\","")
 'Response.write title
  set objfolder_c=fso.getfolder(server.mappath(fpath))  
  Response.write "<br>"  
  imgs=""
  for each objfile in objfolder_c.files
   imgs=fpath&"\"&objfile.name
   imgs=replace(imgs,"\","/")
   Response.write imgs &"<br>"  
   s=s+1
  next  
  set objfolder_c=nothing  
 End if
next  
Response.write s
set fso=nothing  
End function  
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1