копирование файла в другую созданную папку

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