[高分求助/在线等待]怎样对FSO.GetForder.files进行排序？

[dingo]

[高分求助]怎样对FSO.GetForder.files进行排序？

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))

objFolder.Files 的默认排序方式是按照文件名，请问能否按照文件的建立时间排序？

高分求解，在线等待,谢谢！

[yaohai]

没遇到过还，关注，帮你顶一下先！！

[dingo]

谢谢帮顶！

[liujinhuagirl]

关注！

[cuixiping]

我已经实现过了。
原理就是用ado，可以按照任何一个属性进行排序，如文件名，创建日期，修改日期，大小，文件类型，等等，可以顺序也可以逆序。

[dingo]

用ado?
请楼上的详解，谢谢！

[cuixiping]

好的。
留个email。晚上发给你。

[若白师妹]

很简单,用冒泡法就可以

[若白师妹]

<%
dim folderPath
folderPath = "D:\Inetpub\wwwroot\test" '修改成你要的路径,对这个路径下的文件按日期排列
dim fso,f
set fso=server.CreateObject("Scripting.filesystemobject")
set fld=fso.Getfolder(folderPath)
for each f in fld.files
dd=f.DateLastModified
dd1=year(dd)&"-"&right("0"&month(dd),2)&"-"&right("0"&day(dd),2)&" "
str=str&dd1&f.name&"|"
'response.write f.DateLastModified&f.name &"<br>"
next
tmp=split(str,"|")
for j=0 to ubound(tmp)
str1=""
for i=0 to ubound(tmp)
if i=ubound(tmp) then exit for
if tmp(i)<=tmp(i+1) then
tt=tmp(i)
tmp(i)=tmp(i+1)
tmp(i+1)=tt
end if
str1=str1&tmp(i)&"|"
next
next
tmp1=split(str1,"|")
for k= 0 to ubound(tmp1)-1
num1=num1+1
response.write num1&". "&tmp1(k)&"<br>"
next%>

[dingo]

[e-mail]

谢谢：cuixiping(无心)

另外谢谢 ghostzp(那一贱的风情) 的回复，我还没仔细看，呵呵！