文件遍历排序函数


            <%

 function bianli(path)

 'initiate

 path = server.mappath(path)

 set fso=server.CreateObject(&quot;scripting.filesystemobject&quot;) 

 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,&quot;docs\&quot;)

 thepath1 = &quot;./docs/&quot;

 thepath = thepath1 & filepath(1)

 theFiles(slot) = filename&&quot;**&quot;&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,&quot;**&quot;,-1,1)(0)

 filepath = split(para,&quot;**&quot;,-1,1)(1)

 %>

 <p align = &quot;left&quot;>

 ---<img src='../../images/arrow_orange.gif' width='14' height='11'> 

 <a href='<%=filepath%>'><span class=&quot;activelink_yellow&quot;><%=filename%></span></a>

 </p> 

 <%

 next

 end function

%>