vba中怎么复制文件夹并修改部分文件名字 vba中怎么复制文件夹并修改部分文件名字 dvba中怎么复制文件夹并修改部分文件名字 vba中怎么复制文件夹并修改部分文件名字用当天日期命名

在VBA中复制文件夹并修改部分文件名，特别是将文件以当天日期作为新名称，可以使用`FileSystemObject` (FSO) 对象来操作文件和目录。以下是一个示例，展示了如何做到这一点：

Option Explicit

Sub CopyFolderAndRenameWithDate()
    Dim fso As Object
    Dim sourceFolder As String
    Dim targetFolder As String
    Dim filename As String
    Dim currentDate As Date
    Dim newName As String
    
    ' 创建 FileSystemObject 对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 设置源文件夹和目标文件夹
    sourceFolder = "C:\SourceFolder\" '<-- 需要替换为你源文件夹路径
    targetFolder = "C:\TargetFolder\" '<-- 需要替换为你目标文件夹路径
    
    ' 获取当前日期
    currentDate = Now()
    
    ' 遍历源文件夹中的每个文件
    For Each filename In fso.GetFolder(sourceFolder).Files
        ' 新文件名格式化为原文件名 + 当前日期 (例如: 原名_YYYY-MM-DD)
        newName = filename.Name & "_" & Format(currentDate, "yyyy-mm-dd") & "." & Right(filename.Path, InStrRev(filename.Path, ".")) ' 取消 .txt 或者 .docx 等扩展名

        ' 复制文件到目标文件夹，并更名
        fso.CopyFile Filename:=filename.Path, Destination:=targetFolder & newName, OverWriteExisting:=True
        Debug.Print "Copied and renamed file: " & filename.Name & " to " & newName
    Next filename
    
    Set fso = Nothing ' 清理对象
End Sub

**注意事项：**
1. 将`sourceFolder`和`targetFolder`替换为实际的文件夹路径。
2. 代码假设文件名中不会包含特殊字符，如果包含，可能需要进行额外的转义或清理。
3. `OverWriteExisting` 参数设置为 `True` 表示如果目标文件已存在则会覆盖。