sub filecopy(source,destination)
on error goto filecopy_err
Dim filefolder As Object
Set filefolder = CreateObject("Scripting.FileSystemObject")
filefolder.CopyFolder source, destination
exit sub
filecopy_err:
msgobx ....
end subsource 原文件夾路徑
destination 目標文件夾路徑給分
on error goto filecopy_err
Dim filefolder As Object
Set filefolder = CreateObject("Scripting.FileSystemObject")
filefolder.CopyFolder source, destination
exit sub
filecopy_err:
msgobx ....
end subsource 原文件夾路徑
destination 目標文件夾路徑給分
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货