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

Question

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

我收到的错误是说该文件找不到。但这是不可能的，因为我正在使用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 

Answer 1

这是因为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”。

Answer 2

对于移动所有文件的文件夹中：

Sub MoveFiles() 

Dim MyFile As String 

MyFile = Dir("C:\AAAA\*.*") 

Do Until MyFile = "" 

Name "C:\AAAA\" & MyFile As "C:\AAA\" & MyFile 

MyFile = Dir 

Loop 

End Sub