如何利用vba代码提取文件修改日期

Posted 2023-03-09

本人之前写的帖子的一个实例
一看就知道，如下：
Sub 按钮1_Click()
    Application.ScreenUpdating = False
    Set fso = CreateObject("Scripting.FileSystemObject")
    strfile = Application.InputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)
    Set objfile = fso.GetFile(strfile)
    If fso.fileexists(strfile) Then
       
        sReturn = "文件属性： " & objfile.Attributes & vbCrLf
         
        sReturn = sReturn & "文件创建日期： " & objfile.DateCreated & vbCrLf
         
        sReturn = sReturn & "文件修改日期： " & objfile.DateLastModified & vbCrLf
         
        sReturn = sReturn & "文件大小 " & FormatNumber(objfile.Size / 1024, -1)
         
        sReturn = sReturn & "Kb" & vbCrLf
         
        sReturn = sReturn & "文件类型： " & objfile.Type & vbCrLf

        MsgBox sReturn

    Else
        MsgBox strfile & " :不存在"
    End If
    Application.ScreenUpdating = True
End Sub

参考技术A 第一次将文件名及文件修改时间提取出来，然后感觉文件修改时间进行排序，达到楼主要求打开文件的顺序。
比如文件1.XLS 修改时间7月2日是排位第一的，就直接打开1.xls文件即可了。