Dim fs
sourcefile = "F:\123.txt"
targetfolder="F:\456.txt"
set fs=createobject("scripting.filesystemobject")
fs.getfile(sourcefile).copy(targetfolder)
MsgBox "复制成功"
Dim fs
sourcefile = "F:\123.txt"
targetfolder="F:\456.txt"
set fs=createobject("scripting.filesystemobject")
fs.getfile(sourcefile).copy(targetfolder)
MsgBox "复制成功"
![【SCADA】KingIOServer采集杰控OPC UA服务器数据测试[图]](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=)