按日期对FileSystemObject排序

Question

我想使用ASP Classic FSO按日期对文件进行排序。

我是否需要遍历所有文件，将日期放入一个数组中，然后按日期顺序列出该数组，或者是否有一种仅使用FSO就可以做到这一点的更简单方法？

谢谢,

麦克

Answer 1

此函数使用ADO记录集对文件进行排序：

http://www.roubaixinteractive.com/PlayGround/FSO/Sort_Folder_Contents.asp

Answer 2

我创建了一个VBScript函数SortFiles，它：

1. 将FileSystemObject的Files集合复制到VBScript数组中
2. 气泡排序VBScript数组按DateLastModified降序排序(注意:这是一种很慢的排序，您可以用其他算法改进它)

下面是我的VBScript函数SortFiles

Function SortFiles(files)
  ReDim sorted(files.Count - 1)
  Dim file, i, j
  i = 0
  For Each file in files
    Set sorted(i) = file
    i = i + 1
  Next
  For i = 0 to files.Count - 2
    For j = i + 1 to files.Count - 1
      If sorted(i).DateLastModified < sorted(j).DateLastModified Then
        Dim tmp
        Set tmp = sorted(i)
        Set sorted(i) = sorted(j)
        Set sorted(j) = tmp
     End If
    Next
  Next
  SortFiles = sorted
End Function

SortFiles函数的用法示例：

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim files
Set files = fso.GetFolder(SOME_PATH).Files
Dim file
For Each file in SortFiles(files)
  Rem Do something with file ...
Next