联系

点击这里立即发消息给我

E_mail: 3156583381@qq.com

条码二维码软件列表
其他软件列表导航
登录
用户:
密码:
 

站点日历
73 2018 - 1 48
 123456
78910111213
14151617181920
21222324252627
28293031




日志搜索

 标题   内容

联系

点击这里立即发消息给我

E_mail: 3156583381@qq.com


迷你ASP服务器(Sws AspWebServer) 2.3--和如何删除一个目录损坏且无法读... fso循环获取文件夹下文件名并写入数据库
雨天 fso获取文件夹下文件个数和显示文件名(无后缀)   [ 日期:2011-04-06 ]   [ 来自:本站原创 ]


<%
path = "database/"
sub cms126(path)
dim fso
dim objFolder
dim objFiles
dim

objFile
dim n

setfso=server.CreateObject("scripting.filesystemobject")
set

objFolder=fso.GetFolder(Server.MapPath(path))
set objFiles=objFolder.Files
Response.Write

"文件夹"&path&"包含的文件个数为:"
Response.Write objFiles.count&"个<br>"
for each

objFile in objFiles

n=instr(objFile.name,".")
Response.Write "---"&Left(objFile.name,n-

1)&"<br>"
next
set objFile=nothing
set objFiles=nothing
set objFolder=nothing
set

fso=nothing
end sub

call cms126(path)
%>



在本网站提供显示的任何文字内容及图片仅供学习研究参考之用,若有觉的侵犯了您的合法权益,请联系删除!
Copyright@zg126.net all rights reserved 2010-2016