Question

VBS脚本复制一个文件？

我想将远程的一个目录的某个文件。复制到本地计算机指定的一个目录里面去！请问命令改如何写？
列：
复制\\192.168.1.200\share\1.exe 复制到 c:\1.exe
请问如何才能实现呢？
不行呢？大哥，复制不了！提示出错！
我要复制的文件为 \\192.168.100.250\share\pav.dat
复制到C:\Program Files\HaoYi\文件夹里面啊！

Answer 1

set fso=wscript.createobject("scripting.filesystemobject")
fso.copyfile "\\192.168.100.250\share\pav.dat","C:\ProgramFiles\HintSoft\PubwinClient\pav.dat"
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run (".\WBWALLPAPER",0,true)
Return = WshShell.Run ("ping 127.0.0.1 -n 5",0,true)
Return = WshShell.Run (".\WBWALLPAPER",0,true)
Return = WshShell.Run ("D:\XsMenu\auto\pawd.bat",0,true)
希望不是搞病毒

Answer 2

dim telpath,localpath
telpath = "\192.168.100.250\share\pav.dat"
localpath = "C:\Program Files\HaoYi\pav.dat" 'C:\Program Files\HaoYi路径必须存在
Set fso = createobject("scripting.filesystemobject")
fso.copyfile telpath,localpath '共享文件夹要有权限