Excel VBA和文件夹-1.9获得文件的最后修改时间-即用型

前景提要

VBA和文件夹的一些知识点，分享到这里已经差不多了，基本上常用的几种方法都已经告诉大家了，后面就是综合自己日常工作中的各种要求来套用了，后面几篇我们主要分享一些和文件夹相关的一些代码，稍作修改就可以拿来即用的，这些功能并不是很长用，但是需要的时候非常的实用，好了，进入正题。

思路

最后修改时间，其实也就是文件的最后更新时间，很多人都会表示，其实从电脑中可以直接看到了

1.jpg

没错，从这里确实是可以直接看到每个文件夹的最后修改时间，但是写程序的时候你不可能一个个去查看你需要的文件的最后修改时间是什么时候，又或者你文件夹内有好多文件，你想要知道最后一次更新了那个数据之类的，这个时候都可以运用到这个功能

上代码

依然还是利用我们之前已经学习过的FileDialog来实现，我这里为了操作的方便，就设置了具体的路径，大家实际运用的时候，可以综合前面所学，稍作修改。

Sub tes()

Dim i%

With Application.FileDialog(msoFileDialogFilePicker)

    .InitialFileName = "C:\Users\Desktop\电子书"

    .Title = "请选择要打开的文件"

    If .Show = -1 Then

     times = FileDateTime(.SelectedItems(1))

     MsgBox times

    End If

End With

End Sub

效果如图：

2.jpg

代码分析

今天的知识点就只有一个

filedatetime("文件的路径")

获取文件夹最后打开时间