fso文件按照文件名字母排序
来源:中国站长站 时间:2008-03-09 15:25:00
下面的这个函数实现的功能是列出某文件夹下的所有文件,以文件名字母排序,先数字后字母再到中文。
<%
Function ShowFileList(folderspec)
Dim fso, f, f1, fc, rs, s
const adVarChar = 200
set rs = Server.createobject("adodb.recordset")
rs.fields.append "myField", adVarChar, 255
rs.open
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
rs.addnew array("myField"), array(f1.name)
Next
rs.sort = "myField ASC" 'use "myField DESC" for reverse order
rs.moveFirst
do until rs.eof
s = s & rs.fields("myField") & "<BR>"
rs.moveNext
loop
rs.close
set rs=nothing
set fso=nothing
ShowFileList = s
End Function
'列出当前文件夹下的所有文件
Response.write ShowFileList(Server.MapPath("."))
'列出imges文件下的所有文件
Response.write ShowFileList(Server.MapPath("images/"))
%>
标签:fso,排序,文件
0
投稿
猜你喜欢
如何确定Oracle数据库表重复的记录
2010-07-26 13:23:00
ASP 使用三层架构 asp中使用类
2011-03-16 10:52:00
通过T_sql语句向其中一次填入一条数据或一次填入多条数据的方式填充数据
2012-11-30 19:55:34
sql函数:去掉html代码
2008-04-07 12:44:00
如何编写一个基于WEB的文件查询系统?
2009-11-08 18:55:00
设计的技术含量
2009-01-12 18:20:00
DWCS3-CSS布局之一CSS规则大纲
2008-06-11 18:48:00
操作Dom节点实现间歇滚动新闻
2009-10-16 20:51:00
网站设计做好超级链接的重要性
2007-09-14 11:19:00
jQuery 选择器的使用
2008-01-21 13:07:00
数字人组件反写[asp组件开发实例5]
2009-06-09 13:23:00
SQL Server日志文件总结及日志满的处理
2009-03-25 16:17:00
CSS中写expression可能会在Chrome中有问题
2010-01-29 13:10:00
banner字体设计与应用
2009-07-06 14:42:00
关于ASP循环表格的问题之解答[比较详细]
2011-04-08 11:14:00
asp产生不重复的随机数
2008-06-03 13:29:00
Dreamweaver技巧十二招
2009-07-05 18:53:00
asp如何制作一个WAP手机的WML网页?
2010-06-29 21:21:00
请谨慎对待程序的图标和名称
2011-06-16 20:35:22
JavaScript的目的及历史
2007-10-17 18:53:00