我需要按“上次修改日期”的降序遍历给定文件夹中的文件。
在循环的第一次迭代中,我需要能够打开最近修改的文件以进行读取并关闭它。在第二次迭代中,我需要能够打开第二个最近更新的文件以进行读取和关闭等。
FileSystemObject
对文件进行排序还是我们绝对必须编写自定义排序例程? 最佳答案
您可以将文件名和日期读入断开连接的 recordset并按日期排序:
Set fso = CreateObject("Scripting.FileSystemObject")
Set list = CreateObject("ADOR.Recordset")
list.Fields.Append "name", 200, 255
list.Fields.Append "date", 7
list.Open
For Each f In fso.GetFolder("C:\some\where").Files
list.AddNew
list("name").Value = f.Path
list("date").Value = f.DateLastModified
list.Update
Next
list.MoveFirst
Do Until list.EOF
WScript.Echo list("date").Value & vbTab & list("name").Value
list.MoveNext
Loop
list.Sort = "date DESC"
list.MoveFirst
Do Until list.EOF
WScript.Echo list("date").Value & vbTab & list("name").Value
list.MoveNext
Loop
list.Close
关于loops - 基于 'Last Modified Date' 遍历文件夹中的所有文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16288555/