Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") 'fs. CopyFolder 欲複製資料夾+ "\*", 目的地資料夾 'fs.
775225.blogspot.com