如何用VBA的FSO对象按文件名前缀批量移动文件？

核心错误分析 #

原代码存在两个致命问题：

• 变量拼接错误：直接写"G:\Test\start\filename*"会把filename当作字符串的一部分，而非引用变量，导致通配符完全失效，系统会去寻找名为filename*的文件。
• 路径赋值时机错误：locationstart和locationend在filename赋值前就定义，此时filename为空值，这部分代码完全无效。

解决方案 #

1. 用FSO实现（无需引用库） #

通过CreateObject("Scripting.FileSystemObject")创建FSO对象，无需提前引用任何库，同时修正变量拼接逻辑，加入错误处理捕获文件不存在的情况：

Sub movingfilename()
    Dim cell As Range
    Dim sourcePath As String
    Dim targetPath As String
    Dim prefix As String
    Dim notFoundFiles As New Collection
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 定义固定路径（避免重复书写）
    sourcePath = "G:\Test\start\"
    targetPath = "G:\Test\stop\"
    
    ' 遍历A列的前缀（从A2到最后一行非空单元格）
    For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        If Not IsEmpty(cell) Then
            prefix = cell.Value
            On Error Resume Next ' 捕获文件不存在的错误
            ' 正确拼接前缀+通配符，目标路径以\结尾表示目录
            fso.MoveFile sourcePath & prefix & "*", targetPath
            If Err.Number <> 0 Then
                notFoundFiles.Add prefix ' 收集找不到的前缀
            End If
            On Error GoTo 0 ' 恢复默认错误处理
        End If
    Next cell
    
    ' 输出找不到文件的提示
    If notFoundFiles.Count > 0 Then
        Dim msg As String
        msg = "以下前缀未找到对应文件：" & vbCrLf
        Dim item As Variant
        For Each item In notFoundFiles
            msg = msg & item & vbCrLf
        Next item
        MsgBox msg, vbExclamation
    End If
    
    Set fso = Nothing
End Sub

2. 无需FSO，用VBA原生Name语句实现 #

如果不想依赖FSO，可直接使用VBA内置的Name语句，同样支持通配符，且无需任何库：

Sub movingfilename_WithoutFSO()
    Dim cell As Range
    Dim sourcePath As String
    Dim targetPath As String
    Dim prefix As String
    Dim notFoundFiles As New Collection
    
    sourcePath = "G:\Test\start\"
    targetPath = "G:\Test\stop\"
    
    For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        If Not IsEmpty(cell) Then
            prefix = cell.Value
            On Error Resume Next
            ' Name语句格式：Name 源路径 As 目标路径（目标需为目录或文件名）
            Name sourcePath & prefix & "*" As targetPath & prefix & "*"
            If Err.Number <> 0 Then
                notFoundFiles.Add prefix
            End If
            On Error GoTo 0
        End If
    Next cell
    
    If notFoundFiles.Count > 0 Then
        Dim msg As String
        msg = "以下前缀未找到对应文件：" & vbCrLf
        Dim item As Variant
        For Each item In notFoundFiles
            msg = msg & item & vbCrLf
        Next item
        MsgBox msg, vbExclamation
    End If
End Sub

关键注意事项 #

• 通配符正确使用：必须通过&将变量与通配符拼接，比如sourcePath & prefix & "*"才会生成类似G:\Test\start\ABCD*的有效路径。
• 路径结尾规范：源和目标路径建议以\结尾，避免因路径拼接错误导致的异常。
• 错误处理：加入On Error Resume Next可避免单个文件找不到导致整个宏中断，同时收集异常情况便于排查。

内容的提问来源于stack exchange，提问作者MrPazur 1