如何解决我如何知道我是否想知道vba中的上次修改日期文件夹名称
Set fso = CreateObject("Scripting.FileSystemObject")
Set froot = fso.GetFolder(strstartfldr)
For Each fldr In froot.SubFolders
UserForm1.ComboBox1.AddItem fldr.DateCreated
Next
在此程序中,我可以在combbobox1中获取子文件夹列表 但是从这个子文件夹中我怎么知道哪个是最后修改的文件夹名称 我敢肯定有简单的代码,但无法弄清楚
任何人的帮助
解决方法
最后一个文件夹(FSO)
- 以下函数获取上次创建的文件夹的名称。
代码
Option Explicit
Function LastFolder(FolderPath As String) As String
Dim fso As Object
Dim froot As Object
Dim fldr As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set froot = fso.GetFolder(FolderPath)
Dim fName As String
Dim fDC As Date
Dim TMP As Date
For Each fldr In froot.subfolders
TMP = fldr.DateCreated
If TMP > fDC Then
fDC = TMP
fName = fldr.Name
End If
Next fldr
LastFolder = fName
End Function
Sub testLastFolder()
Debug.Print LastFolder("F:\StackOverFlow")
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。