Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
'fs.CopyFolder 欲複製資料夾 + "\*", 目的地資料夾
'fs.CopyFile 欲複製資料夾 + "\*.*", 目的地資料夾
'例如:
fs.CopyFolder "c:\folder1" + "\*", "c:\folder2"
fs.CopyFile "c:\folder3" + "\*.*", "c:\folder4"
