将文件复制到另一个创建的文件夹

Question

我正在使用VBA，并使用它创建了一个文件夹，该文件夹的名称基于今天的日期。然后，我需要将文件从另一个文件夹复制到此新创建的文件夹。我能够创建该文件夹，但是由于文件名每天都会根据日期而变化，因此我一直无法复制文件，这是我每天运行的常规程序。谢谢。

这是代码，其目的是检查文件是否在某个位置，然后将该文件复制到另一个文件夹，该文件夹的名称基于今天的日期（每天都会更改）。

Sub Check_IfFile()
Dim fso As Object
Dim Path As String
Dim d As String

Path = "C:\Archive\"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\INVENTORY") Then
  MsgBox "File is in, good to go"
  d = Format(Date, "mmddyyyy")
  If Len(Dir(Path & d, vbDirectory)) = 0 Then MkDir (Path & d)
Else
   MsgBox "File is not present"
End If
End Sub