Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

获取文件修改日期的函数

时 间: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


Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助