答:Sub 打卡文件夹() Dim fso As Object, fld As Object Set fso = CreateObject("Scripting.FileSystemObject") Set fld = fso.GetFolder("C:\文件夹") For Each f1 In fld.Files f1.Copy "C:\目标文件夹" & f1.Name, True Next End Sub
答:Sub 打卡文件夹() Dim fso As Object, fld As Object Set fso = CreateObject("Scripting.FileSystemObject") Set fld = fso.GetFolder("C:\文件夹") For Each f1 In fld.Files f1.Copy "C:\目标文件夹" & f1.Name, True Next End Sub