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

Question

我不确定此问题是否已在此处提出。我经常搜索（！）并且没有找到答案。

我想在VBA中创建一个宏，以便每天检查一个特定的文件夹，如果有任何新文件的添加。

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

任何人都可以帮我吗？

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