Excel 按修改日期的顺序（升序）将图像获取到数组中

我必须将图像导入数组，然后将这些图像插入excel工作表

我有一个代码，它将所有文件的名称放入一个数组并逐个插入。但秩序混乱。我使用了Dir（）方法

Do While sFile“”
aFileNames（nCounter）=sFile
sFile=Dir
n计数器=n计数器+1
如果nCounter>UBound（文件名），则
重拨保留aFileNames（UBound（aFileNames）+255）
如果结束
环

---

我需要以修改日期（升序）的形式获取文件名数组。这样，第一次保存的第一个映像将首先插入

使用文件系统对象获取每个文件的日期，并将它们都添加到脚本字典中，然后将其转换为数组，然后对数组进行排序。谢谢您的回答。我对文件系统对象不熟悉，你能帮我吗？但是如果所有的图像几乎同时保存（它们都有相同的日期和时间）它们不可能在同一秒保存，对吗？文件信息日期/时间将信息保留到第二秒，供您使用。

Do While sFile <> ""
    aFileNames(nCounter) = sFile
    sFile = Dir
    nCounter = nCounter + 1

    If nCounter > UBound(aFileNames) Then
        ReDim Preserve aFileNames(UBound(aFileNames) + 255)
    End If

Loop