按日期对 FileSystemObject 进行排序

Dim objFSO, objFolder, colFiles, objFile, strFilePath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\your_folder_path")
Set colFiles = objFolder.Files

For Each objFile In colFiles
    strFilePath = objFile.Path
    ' 在此处添加您的排序代码
Next

Dim objFSO, objFolder, colFiles, objFile, strFilePath, arrFiles
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\your_folder_path")
Set colFiles = objFolder.Files

ReDim arrFiles(colFiles.Count - 1)

Dim i
i = 0

For Each objFile In colFiles
    strFilePath = objFile.Path
    arrFiles(i) = Array(objFile.DateCreated, strFilePath)
    i = i + 1
Next

Dim j, temp
For j = 0 To UBound(arrFiles) - 1
    For i = j + 1 To UBound(arrFiles)
        If arrFiles(j)(0) > arrFiles(i)(0) Then
            temp = arrFiles(j)
            arrFiles(j) = arrFiles(i)
            arrFiles(i) = temp
        End If
    Next
Next

For i = 0 To UBound(arrFiles)
    WScript.Echo arrFiles(i)(1)
Next