【Access自定义函数】ShowFileAccessInfo--获取指定文件的文件属性-某.强人
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access自定义函数】ShowFileAccessInfo--获取指定文件的文件属性

发表时间:2022/3/13 11:26:40 评论(0) 浏览(2405)  评论 | 加入收藏 | 复制
   
摘 要:分享一个关于获取指定文件的文件属性的自定义函数。
正 文:

      如何通过ACCESS获取指定文件的上级文件夹、创建、修改、访问时间等文件属性?如下给出一个自定义函数解决该问题。

代   码:

Public Function ShowFileAccessInfo(filespec As String)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)

    s = UCase(f.Name) & " 父级文件夹为:" & vbCrLf & UCase(f.ParentFolder) & vbCrLf  

    '通过File对象的ParentFolder 属性获取父级文件夹

    s = s & "创建时间: " & f.DateCreated & vbCrLf   

    '通过File对象的DateCreated 属性获取创建时间    

    s = s & "上次访问时间: " & f.DateLastAccessed & vbCrLf  

    '通过File对象的DateLastAccessed 属性获取访问时间   

    s = s & "上次修改时间: " & f.DateLastModified   

    '通过File对象的DateLastModified 属性获取修改时间

    MsgBox s, 0, "文件信息明细:"

End Function


演示图:

点击图片查看大图


Access软件网交流QQ群(群号:198465573)
 
 相关文章
[荐]获取文件信息的函数  【fan0217  2008/7/7】
非API获取文件属性信息  【咱家是猫  2010/6/17】
通过FileLen获取文件大小  【易勋  2020/4/23】
FillStyle 属性  【杨雪  2021/1/9】
DateCreated 属性  【杨雪  2021/1/24】
【Access快速开发平台源码示例】--获取文件路径的示例  【郑煜桐  2021/5/8】
使用Access类获取文件信息(文件名\路径)  【欧志华  2021/7/7】
【Access小作】如影随形--窗体recordsetclone属...  【阿四  2021/11/19】
Access 属性的 SubForm.OldBorderStyle...  【杨雪  2021/11/20】
使用ControlTipText 属性为控件写上“小提示”  【某.强人  2021/11/21】
使用GetAttr函数确定文件属性  【某.强人  2021/11/28】
常见问答
技术分类
相关资源
文章搜索
关于作者

某.强人

文章分类

文章存档

友情链接