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

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

因此，我必须修复此错误，如果可能的话，我想将文件复制到另一个文件夹并更改名称。例如，如果我有文件“ 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