admin 管理员组

文章数量: 1184232

1.新建record文件夹

2.进入record文件夹，新建res和des文件夹

3.把源文件列表放到res文件夹，文件平铺

4.在record文件夹下新建Excel：

第一列A放目标文件名

第二列B放目标文件类型 ".wav"

第三列C合并第一列A和第二列B

第四列D放="copy /y  D:\record\res\"&C1&" D:\record\des"，复制，粘贴值，再复制

5.在record文件夹下新建文本run.txt，粘贴

格式：

@echo off
copy /y C:\Users\yuxingkuan\Desktop\test\res\123.txt C:\Users\yuxingkuan\Desktop\test\des
pause

6.文本文件run.txt改为run.bat文件

7.执行run.bat

8.des文件夹即筛选后的目标文件

-------------------

Public arr
Public str1
Sub 按钮2_Click()
    arr = Range("d2:d" & Cells(Rows.Count, "d").End(3).Row)
    Application.ScreenUpdating = False
    str1 = ThisWorkbook.Path & "\合并文件夹\"
    Getfd (ThisWorkbook.Path)
    Application.ScreenUpdating = True
End Sub
Sub Getfd(ByVal pth)
    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.getfolder(pth)
    If InStr(ff, "合并文件夹") = 0 Then
        For Each f In ff.Files
            For k = 1 To UBound(arr)
                If InStr(f.Name, arr(k, 1)) > 0 Then
                    fso.CopyFile f, str1, True '拷贝并覆盖
'                    fso.moveFile f, str1 '拷贝并覆盖
'                    fso.DeleteFile f, True '忽略文件只读属性，直接删除
                    Exit For
                End If
            Next k

        Next f
    End If
    For Each fd In ff.subfolders
        Getfd (fd)
    Next fd

End Sub

本文标签： 批量 文件 Windows

版权声明：本文标题：Windows下批量查找文件 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1766068667a3434089.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。