联系

点击这里立即发消息给我

加腾讯QQ:211812590
E_mail: 211812590@qq.com

条码二维码软件
实用工具软件

站点日历
73 2018 - 4 48
1234567
891011121314
15161718192021
22232425262728
2930




日志搜索

 标题   内容

联系

点击这里立即发消息给我

E_mail: 211812590@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