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