如何在Excel 2010中使用VBA获取目录中的最后修改文件

我正在寻找一种方法来使用VBA在Excel 2010中执行此操作。

它曾经可以在Excel 2003中使用Application.FileSearch方法，但是这已经被折旧了。 （见下文）

Dim sFileName As String sFileName = "" With Application.FileSearch .NewSearch .LookIn = sDir .Filename = "*.*" .Execute msoSortByLastModified, msoSortOrderDescending If .FoundFiles.Count > 0 Then sFileName = .FoundFiles(1) End With 

任何想法如何在Excel 2010中做到这一点？

谢谢

Answer 1

如果使用FileSystemObject是可以接受的，可以使用这里描述的方法。

总结：

 Dim fso As Scripting.FileSystemObject Dim fol As Scripting.Folder Dim fdr As Scripting.Folder Dim fil As Scripting.File Dim flc As Scripting.Folders Set fso = CreateObject("Scripting.FileSystemObject") Set fol = fso.GetFolder("YourPathName") Set flc = fol.SubFolders For Each fdr In flc For Each fil In fdr.Files Debug.Print fil.DateLastModified Next fil Next fdr Set fso = Nothing Set fol = Nothing Set flc = Nothing