文件遍历排序函数 (转)

文件遍历排序函数 (转)[@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)
 %>
 

 ---
 
 

  next
 end function
%>

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

转载于:http://blog.itpub.net/10748419/viewspace-958915/