Excel VBA和文件夹-1.9获得文件夹的最后修改时间-即用型
前景提要
VBA和文件夹的一些知识点,分享到这里已经差不多了,基本上常用的几种方法都已经告诉大家了,后面就是综合自己日常工作中的各种要求来套用了,后面几篇我们主要分享一些和文件夹相关的一些代码,属于即用型,稍作修改就可以拿来用的,这些功能并不是很常用,但是需要的时候非常的实用,好了,进入正题。
思路
最后修改时间,其实也就是文件的最后更新时间,很多人都会表示,其实从电脑中可以直接看到了,
没错,从这里确实是可以直接看到每个文件夹的最后修改时间,但是写程序的时候你不可能一个个去查看你需要的文件的最后修改时间是什么时候,又或者你文件夹内有好多文件,你想要知道最后一次更新了那个数据之类的,这个时候都可以运用到这个功能
上代码
依然还是利用我们之前已经学习过的FileDialog来实现,我这里为了操作的方便,就设置了具体的路径,大家实际运用的时候,可以综合前面所学,稍作修改。
Sub tes()
Dim ibr>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
效果如图:
代码解析
今天的知识点就只有一个
filedatetime("文件的路径")
获取文件的最后修改时间
==========================================================================
因为这次分享的主要是即用型的代码,拿来就可以使用的,没有太多的知识点需要说明的,大家有了前面的基础,基本上都可以看懂和理解代码的意思的,所以后面我还打算通过这样的方式分享2篇左右关于文件夹的一些实用的即用型代码,或者你有什么其他的需求,也可以在下面留言告诉我,我尽量根据大家的需要分享相关的知识。
说下计划吧,关于文件夹的一些知识和内容的分享,大致快要收尾了,后面将会进入关于VBA中关于FSO的一些内容的分享
好啦,今天的分享就到这里了,如果你有什么想要分享的,或者有什么想要知道的,都可以在留言,明天晚上19:00再见!
==========================================================================
本人已经打算长期分享一些网络搜集的各种VBA知识,如果大家有问题也可以提出来共同解决,一起进步,毕竟VBA的世界还是很大的。
因为基本上都是自学的,很多代码和知识都是来源于网络的,如果在分享的过程中,正好拿了某位大神的代码,请告诉我,我将标注代码来源出处,也方便大家学习分享,谢谢!
=============================传送门==============================
VBA和文件夹
Excel VBA和文件夹-1.6遍历文件夹打开指定格式的文件
Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件
Excel VBA和文件夹-1.8通过对话框灵活选定文件的小技巧