求助用vb编写一个程序，实现从局域网内一台服务器更新替换一些文件。

答案:4 悬赏:80 手机版

解决时间 2021-01-27 01:13

提问者网友：未信
2021-01-26 21:13

就是从2003文件服务器上更新nod32的病毒库到局域网内的客户机上。具体就是例如A是服务器ip地址是192.168.1.254，在里面建立共享文件夹nod32。在局域网内其它电脑（假设为B.C.D等等）上执行完这个程序后会对比nod32文件夹，第一次运行则在D盘建立nod32文件夹，并将A服务器上nod32文件夹内容复制下来。如第二次或第三次执行后本地电脑D盘有此文件夹则与A服务器上文件夹内容对比，如有变化则删除本地nod32文件夹后将A服务器上的nod32文件夹复制下来。
请大神们帮忙编写这个程序的代码，并注释代码说明，本人在学VB菜鸟。批处理已经基本实现此功能了。批处理代码如下：
@echo off
color 3f
if exist D:\nod32 rd /S /Q D:\nod32
md D:\nod32
xcopy /y \\192.168.1.254\nod32 D:nod32 >nul
echo 更新完毕，即将退出！
ping -n 3 127.1>nul
exit

最佳答案

五星知识达人网友：渊鱼
2021-01-26 21:50

Private Sub Command1_Click()
Dim NodPath As String
NodPath = "D:\nod32"
If Dir(NodPath, vbDirectory) = "" Then
Kill NodPath & "\*.*"
RmDir NodPath
End If
Shell "CMD /C xcopy /y \\192.168.1.254\nod32 D:\nod32", vbNormalFocus
MsgBox "更新完毕，即将退出！"
Shell "CMD /c ping -n 3 127.1>nul", vbNormalFocus
End Sub

全部回答

1楼网友：山河有幸埋战骨
2021-01-27 00:20

mark,以前写了一个,源代码不记得丢哪去了,大概思路就是读取文件夹里的目录,通过文件属性,版本,大小等进行对比判断,决定是否下载更新.

2楼网友：鱼芗
2021-01-26 23:55

你好！ shell+批处理就可以了,网上很多这样的代码我的回答你还满意吗~~

3楼网友：狂恋
2021-01-26 23:07

调用scriptiog.filesystemobject

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息