[点晴永久免费OA]ASP文件遍历排序函数

admin

2022年6月21日 9:20 本文热度 734

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

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

'输出

for i = 0 to UBound(theFiles)-1

para = theFiles(i)

filename = split(para,"**",-1,1)(0)

filepath = split(para,"**",-1,1)(1)

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

</p>

end function

该文章在 2022/6/21 9:20:30 编辑过

关键字查询

排序

文件

函数

正在查询...