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