现有一文件夹，里面有一堆图片。
我现在的程序是自动加载这些图片到ppt中，默认是按照文件名顺序加载，如何改成按照文件创建时间加载呢？

代码?

先建二个数组,
一个字符串,一个以时间

流程:
1\读文件个数,可以先读一遍来计数
2\重定义数组大小
3\读文件名,并读文件生成日期
4\按文件生成日期进行排序,同时对二个数组进行排序,也就是交换时,需要同时交换二个数组的对应元素.
5\按数组序号加载图片

代码：
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)就是按照文件名排序后的第一个图片。
楼上能否给出具体代码？

.Execute msoSortByLastModified '按文件修改时间排序

没有提供按创建时间排序的方法. 另外跟着文件走的只有修改时间 访问时间和创建时间都是存在系统里的.

3Q  zmh886，我试试