VBAmacros来validation新文件是创build还是添加到文件夹

我不确定这个问题是否已经在这里提出。 我搜查了很多（！），没有find答案。

我想在VBA中创build一个macros来每天检查一个特定的文件夹，如果有新的文件添加的话。

我已经看到了一些代码来检查文件是否存在（给定名称），但我真的很难find我的问题的答案。

谁能帮我这个？

Answer 1

考虑使用FileSystemObject

Sub LookForNew() Dim n As String, msg As String, d As Date msg = "" Set fso = CreateObject("Scripting.FileSystemObject") Set fils = fso.GetFolder("C:\TestFolder").Files For Each fil In fils n = fil.Name d = fil.DateCreated If d >= Date - 1 Then msg = msg & n & vbTab & d & vbCrLf End If Next fil If msg = "" Then MsgBox "No new files" Else MsgBox msg End If Set fso = Nothing End Sub