vba 获取文件fld.files时文件排序

在VBA (Visual Basic for Applications) 中，当你通过`FileSystemObject` (FSO) 的 `Folder.Files` 属性获取到一组文件后，如果你想要对这些文件进行排序，通常你会先将它们存储在一个数组或者集合中，然后利用VBA提供的`Application.Sort` 方法或者自定义排序函数对数组进行排序。

例如，你可以这样做：

Dim fso As Object
Dim folderPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
folderPath = "C:\YourFolderPath" ' 替换为你的文件夹路径

' 获取文件列表
 Dim files() As Variant
 files = fso.GetFolder(folderPath).Files ' 文件列表为一维数组

' 如果你想按名称排序
fso.SortFiles(files, True, False, Array(1), , "Name") ' 第三个参数False表示升序排序

' 如果你想自定义排序函数
Function CustomSort(fileItem As File) ' 自定义函数接收File对象
   ' 根据需要对fileItem.Name、Size等属性进行比较并返回值
   CustomSort = fileItem.Size ' 按照文件大小排序
End Function

' 然后用这个函数排序
fso.SortFiles(files, True, True, CustomSort)

记得在实际应用中，你需要根据具体的排序需求修改排序依据（如`Array(1)`代表按照第1个字段排序）。完成排序后，`files` 数组会包含按照指定规则排列的文件。