按时间顺序加载文件
现有一文件夹，里面有一堆图片。我现在的程序是自动加载这些图片到ppt中，默认是按照文件名顺序加载，如何改成按照文件创建时间加载呢？
代码：
With pptApp.FileSearch
.FileName = "*.JPEG"
.LookIn = "D:\Work\VB\Picture"
.Execute
End With
Dim wd As Double
Dim hi As Double
wd = pptApp.ActivePresentation.PageSetup.SlideWidth
hi = pptApp.ActivePresentation.PageSetup.SlideHeight
pptApp.ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=pptApp.FileSearch.FoundFiles(1), LinkToFile:=False, SaveWithDocument:=True, Left:=40, Top:=115, Width:=wd * 0.9, Height:=hi * 0.7).Select
这样加载的第一张图片FileName:=pptApp.FileSearch.FoundFiles(1)就是按照文件名排序后的第一个图片。
楼上能否给出具体代码？