文件遍历排序函数

<%

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)

%>

<p align = "left">

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

<a href='<%=filepath%>'><span class="activelink_yellow"><%=filename%></span></a>

</p>

<%

next

end function

%>