使用vba将文件从一个文件夹复制到另一个文件夹

我知道有一些关于这个主题的类似帖子。但是，我有一个与我在这里看到的所有代码（在谈论这个主题时）不同的代码。

我收到的错误是找不到该文件。但这是不可能的，因为我正在 fso.CopyFile 中用作 SOURCE 的同一文件夹中搜索文件。

所以我必须修复这个错误，如果可能的话，我想将文件复制到另一个文件夹并更改名称。例如，如果我有文件“Excel.xls”，我想使用名称“Excel_old.xls”进行复制，是否可以使用下面的代码，或者是否太难而不值得？

这是代码：

Sub CopyFiles()
'Macro to copy all files modified yesterday

Dim n As String, msg As String, d As Date
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fils = fso.GetFolder("C:\Users\Desktop\Files\").Files

'Verify all files in the folder, check the modification date and then copy 
'to another folder (named Old)
For Each fil In fils
    n = fil.Name
    d = fil.DateLastModified
    If d >= Date - 1 Then
        file = n
        'The following line is where the error occurs
        fso.CopyFile "C:\Users\Desktop\Files\file", "C:\Users\Desktop\Files\Old\file"

    End If
Next fil

End Sub

这是因为fso.CopyFile "C:\Users\Desktop\Files\file", "C:\Users\Desktop\Files\Old\file"不是一个文件...从它的外观来看，它只是一个虚拟文件的字符串。

如果该行是

fso.CopyFile fil.Path, "C:\Users\Desktop\Files\Old\" & fil.name...这可能有用。

更新添加：

我刚刚尝试使用以下命令（下面使用计算机用户名）并成功将所有内容移动到新文件夹中：

Sub test()
    Dim fso As FileSystemObject
    Dim fsoFiles As Files
    Dim fil As File

    Set fso = New FileSystemObject
    Set fils = fso.GetFolder("C:\Users\<MY USERNAME>\Desktop\").Files

    For Each fil In fils
        n = fil.Name
        d = fil.DateLastModified
        fso.CopyFile fil.Path, fil.ParentFolder & "\test\" & fil.Name

    Next fil
End Sub

这里唯一的区别是我使用 fil.ParentFolder 获取我的桌面，然后将其放入我在桌面上创建的一个名为“test”的新文件夹（在运行脚本之前）。