如何用VBA将文件名中含有相同字符的文件从一个文件夹保存到另一个指定文件夹中？

Question

如题所述

Answer 1

参考使用代码：
Private Sub FileChecking()
Dim CheckFolder$, TargetFolder$, KeyWord$, ic%
CheckFolder = "D:\T1\" '检查路径，依需设置
TargetFolder = "D:\T2\" '备份路径，依需设置
KeyWord = "2022" '关键词，依需设置
ic = 1
For Each f In CreateObject("scripting.FileSystemObject").GetFolder(CheckFolder).Files
If f.Name Like "*" & KeyWord & "*" Then
FileCopy CheckFolder & f.Name, TargetFolder & f.Name
ic = ic + 1
End If
Next
MsgBox ic & "个文件复制完成!"
End Sub

以上希望能帮上忙！