sub filecopy(source as string,destination as string)
Dim filefolder As Object
Set filefolder = CreateObject("Scripting.FileSystemObject")
filefolder.CopyFolder source, destination
end sub可以實現文件復制到文件夾
文件用個 循還 把名字 傳到 filecopy 的 destination 參數
Dim filefolder As Object
Set filefolder = CreateObject("Scripting.FileSystemObject")
filefolder.CopyFolder source, destination
end sub可以實現文件復制到文件夾
文件用個 循還 把名字 傳到 filecopy 的 destination 參數
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货