应用VBA设置fso对象，完成文件转移至另一个文件夹

zhangdabai1

于 2024-02-02 17:57:44 发布

阅读量801

点赞数 11

文章标签： word wps

本文链接：https://blog.youkuaiyun.com/zhangdabai1/article/details/135998729

版权

本文介绍了一个VBASub过程，用于将指定类型的文件（如.doc和.docx）从源文件夹移动到目标文件夹，并在完成后删除原文件。作者通过示例展示了如何使用Scripting.FileSystemObject进行文件操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、效果

1、原来的状态

2、运行代码后

二、代码

Option Explicit

Sub 文档转移文件夹()
    Dim 源文件夹$, 目标文件夹$
    Dim FSO As Object
    Dim FO As Object
    Dim f
    
    源文件夹 = "H:\用户\桌面\新建文件夹\员工档案"
    目标文件夹 = "H:\用户\桌面\新建文件夹\员工档案汇总\唐僧"
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FO = FSO.GetFolder(源文件夹)
    
    '建立数组储存找到的文件名
    Dim 文件名() As String
    Dim wName As String, newName As String
    
    '要转移的文件
    wName = InputBox("请输入要转移的文件名：")
    
    Dim j As Integer
    For Each f In FO.Files
        If Right(f.Name, 3) = "doc" Or Right(f.Name, 4) = "docx" Then
            ReDim Preserve 文件名(j)
            文件名(j) = f.Path
            If InStr(文件名(j), wName) > 0 Then
                newName = 目标文件夹 & "\" & f.Name
                FSO.CopyFile 文件名(j), newName, True ' 将文件复制到目标位置
                FSO.DeleteFile 文件名(j) ' 删除原文件
                MsgBox "完成转移文件" & j & "：" & 文件名(j)
                Exit For
            End If
            j = j + 1
        End If
    Next
    
End Sub