获取文件修改日期的函数

时　间:2024-10-18 18:50:46
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:一个用来获取文件修改日期的自定义函数。
正　文:

      最近在软件中需要从原公司管理系统下载数据，这时便有了多个下载后的excel格式文件。然后将数据从excel文件导入到自已开发的软件中。

      由于担心下载的文件不是最新的，因此需要获得文件的修改日期，于是便写了下面的函数：

注   意：

要引用 Microsoft Scripting Runtime

源代码:

Function GetFileDate(filePath As String) As Date
    Dim fso As Scripting.FileSystemObject
    Dim File As Scripting.File
    
    ' 创建FileSystemObject对象
    Set fso = New Scripting.FileSystemObject
    
    ' 检查文件是否存在
    If fso.FileExists(filePath) Then
        ' 获取文件对象
        Set File = fso.GetFile(filePath)
        
        ' 输出文件的最后修改日期
        GetFileDate = DateSerial(Year(File.DateLastModified), Month(File.DateLastModified), Day(File.DateLastModified))
        
        ' 输出文件的创建日期
'        Debug.Print "创建日期: " & File.DateCreated
  
    Else
        MsgBox "文件不存在！"
    End If
    ' 清理对象
    Set File = Nothing
    Set fso = Nothing
End Function