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

本人之前写的帖子的一个实例

一看就知道，如下：

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

Sub 获取文件修改时间()

Dim Ipath, Ifile As String, Arr(), N As Integer

Ipath = "d:\pic\"

Ifile = Dir(Ipath, vbNormal)

If Ifile <>"" Then

Do

N = N + 1

ReDim Preserve Arr(1 To 2, 1 To N)

Arr(1, N) = Ipath &Ifile

Arr(2, N) = FileDateTime(Ipath &Ifile)

Ifile = Dir

Loop While Ifile <>""

Range("A1").Resize(N, 2) = WorksheetFunction.Transpose(Arr)

End If

End Sub

使用这个函数吧，可以得到文件的 创建时间 或 最后修改时间：

-------------------------

Function iFileDate(iPh, n)

'参数说明：

' iph 文件路径。

' n时间类型。 1 为 创建时间；2 为 最后修改时间

If Dir(iPh) = "" Then Exit Function

Dim fs: Set fs = CreateObject("Scripting.FileSystemObject")

Dim f: Set f = fs.GetFile(iPh)

If n = 1 Then iFileDate = f.DateCreated

If n = 2 Then iFileDate = f.DateLastModified

End Function

---------------------

具体使用方法举例：

---------------

Sub iTest()

Dim iPh, iDate1, iDate2

iPh = "G:\D baiduHi\VBA 文件 *** 作\a.xls"

If Dir(iPh) = "" Then

MsgBox "下面的文件不存在：" &vbCrLf &iPh, vbCritical

Exit Sub

End If

iDate1 = "创建时间:" &vbTab &iFileDate(iPh, 1)

iDate2 = "最后修改时间:" &vbTab &iFileDate(iPh, 2)

MsgBox iPh &vbCrLf &iDate1 &vbCrLf &iDate2

End Sub

---