VBA获取文件的创建、访问和最后修改时间

在论坛上帮人解决一个问题时,需要在Excel中使用vba提取指定文件的最后修改时间,参考文档写了一个函数,增加了“创建时间”、“最后访问时间”,记录在此备查:

Function FileInfo(fileDir)
    Dim ofile, myfile, info
    Set ofile = CreateObject("Scripting.FileSystemObject")
    Set myfile = ofile.GetFile(fileDir)
    info = "创建时间:" & myfile.DateCreated & vbCrLf
    info = info & "最后访问:" & myfile.DateLastAccessed & vbCrLf
    info = info & "最后修改:" & myfile.DateLastModified
    FileInfo = info
End Function


知识共享许可协议
除非注明,本博客文章均为原创
并采用知识共享署名-非商业性使用 4.0 国际许可协议进行许可。转载请以URL链接形式标注源地址。

标签: excel, vba

添加新评论