修改VBA文件移动代码：实现同名文件自动替换功能

原代码在将指定文件夹的docx文件移动到目标文件夹时，若目标存在同名文件会触发错误并终止操作。要实现自动替换旧文件的功能，我们可以在移动前先判断目标文件是否存在并删除，或者使用支持覆盖的复制操作后删除源文件，两种方式都能达成需求。

修改后的代码（先删后移） #

Sub MoveFilesAccordingFileType()
    Dim fso As Scripting.FileSystemObject
    Dim Fl As Scripting.File
    Dim sourceFldr As Scripting.Folder
    Dim DestinationFldr As Scripting.Folder
    Dim targetFilePath As String
    
    Set fso = New FileSystemObject
    Set sourceFldr = fso.GetFolder("E:\Deploy_The_Process\Add Limits")
    Set DestinationFldr = fso.GetFolder("E:\Deploy_The_Process\Archive\Word")
    
    For Each Fl In sourceFldr.Files
        If fso.GetExtensionName(Fl.Path) = "docx" Then
            ' 构造目标文件的完整路径
            targetFilePath = DestinationFldr.Path & "\" & Fl.Name
            
            ' 如果目标文件已存在，先删除（True参数强制删除只读文件）
            If fso.FileExists(targetFilePath) Then
                fso.DeleteFile targetFilePath, True
            End If
            
            ' 执行移动操作
            fso.MoveFile Fl.Path, targetFilePath
        End If
    Next Fl
End Sub

另一种实现方式（复制覆盖+删源文件） #

如果更习惯用复制逻辑，也可以把移动步骤替换成以下代码，效果完全一致：

' 复制文件到目标路径，第三个参数设为True表示覆盖同名文件
fso.CopyFile Fl.Path, targetFilePath, True
' 删除源文件，完成"移动"的效果
fso.DeleteFile Fl.Path

关键细节说明 #

• 路径拼接用反斜杠\适配Windows系统的路径格式，避免原代码中用斜杠/可能出现的兼容性问题
• DeleteFile的第二个参数True确保即使目标文件是只读属性也能被删除
• 明确指定目标文件的完整路径，比仅指定文件夹路径更严谨，避免歧义

内容的提问来源于stack exchange，提问作者Salman Shafi