ITPub博客

首页 > 应用开发 > IT综合 > 文件遍历排序函数 (转)

文件遍历排序函数 (转)

原创 IT综合 作者:amyz 时间:2007-11-16 17:36:50 0 删除 编辑
文件遍历排序函数 (转)[@more@]

 <%

  function bianli(path)

 'initiate
 path = server.mappath(path)
 set fso=server.Createobject("scripting.filesystemobject") 
  set objFolder=fso.GetFolder(path)
 set  objfiles = objfolder.files

 '把文件名及文件路经存入theFiles数组
 int slot = 0
 Dim theFiles()
 redim theFiles(50)
 for each objFile in objFiles
 filename = objFile.name
 filePath = split(objFile.path,"docs")
 thepath1 = "./docs/"
 thepath = thepath1 & filepath(1)
 theFiles(slot) = filename&"**"&thepath
 slot = slot + 1
 if slot > UBound(theFiles) then
 ReDim Preserve theFiles(Slot+20)
 end if
 next
 ReDim Preserve theFiles(slot)
 
 
 '冒泡排序
 for i = 0 to UBound(theFiles)-2
 for j = i+1 to UBound(theFiles)-1
 if strComp(theFiles(i),theFiles(j)) = 1 then
 tmp = theFiles(i)
 theFiles(i) = theFiles(j)
 theFiles(j) = tmp
 end if
 next
 next
 
 '输出
 for i = 0 to UBound(theFiles)-1
 para = theFiles(i)
 filename = split(para,"**",-1,1)(0)
 filepath = split(para,"**",-1,1)(1)
 %>
 


 ---
 <%=filename%>
 


 <%
 next
 end function
%>


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-982740/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339144