VBA 宏来验证是否创建了新文件或将其添加到文件夹

【问题标题】：VBA Macro to verify if a new file was created or added to a folderVBA 宏来验证是否创建了新文件或将其添加到文件夹
【发布时间】：2014-09-12 13:43:57
【问题描述】：

我不确定这里是否已经问过这个问题。我搜索了很多（！）并没有找到答案。

我想在 VBA 中创建一个宏来每天检查特定文件夹是否有添加任何新文件。

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

谁能帮我解决这个问题？

【问题讨论】：

遍历该文件夹中的文件并检查它们的创建日期？

标签： vba file excel

【解决方案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

【讨论】：