Question

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

就是从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

Answer 1

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

Answer 2

调用scriptiog.filesystemobject

Answer 3

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

Answer 4

shell+批处理就可以了,网上很多这样的代码

追问

批处理已经实现了我需要的功能，但我现在想学vb,用VB来编程解决这个问题。不过依然谢谢你。