显示文件夹中所有文件的修改时间-张志
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


显示文件夹中所有文件的修改时间

发表时间:2024/4/11 8:01:25 评论(0) 浏览(601)  评论 | 加入收藏 | 复制
   
摘 要:获得文件夹中所有文件的名称和修改时间
正 文:

代码如下:

Function ShowFolderList(folderName As String)
'folderName 文件夹名称
    Dim fso, f, f1, fc, dt
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderName)
    Set fc = f.Files
    For Each f1 In fc '在文件夹中遍及所有文件
        'dt = f1.DateCreated    '建日期和时间
        'dt = f1.DateLastAccessed '上次访问日期和时间
        dt = f1.DateLastModified '上次修改日期和时间
        Debug.Print f1.Name & " " & dt
    Next
    Set fso = Nothing
End Function


Access软件网交流QQ群(群号:198465573)
 
 相关文章
常见问答
技术分类
相关资源
文章搜索
关于作者

张志

文章分类

文章存档

友情链接