VB如何通过内网的连接复制文件?

有两种方式。

1.做一个客户端程序，一个服务端程序。每台机器都装客户端，并让其开机自动运行；服务端程序装到主机上。客户端和服务端之间利用winsock进行通讯。

2.只做一个服务端程序，在主机上运行。为每台机器设置一个共享文件夹，服务端程序向每个共享文件夹内复制文件。

你的程序如果只在服务器上运行,通过网络访问其他客户端来拷贝资料,那要考虑的问题很多了,客户端有没有开机也要考虑,如果你轮询每个客户机的话,是不是还要做成多线程的?否则一个一个来很慢的.

我倒是建议你写个放在客户端的程序,把客户端的资料传到服务器上.这样可以绕过很多麻烦.

最简单的就是在服务器上起个FTP服务器如SERV-U,客户端的程序可以利用现成的ftp Client模块(我用delphi的,里面有现成的),连接到FTP服务器,传送指定的文件.

在局域网中的某台电脑（最好选择性能较好的机子）上建立一个共享文件夹（要把权限设置为所有人都可读可写），然后把文件复制到这个文件夹，只要同一局域网的其他电脑都能够在桌面的“网络”（XP之前的系统是叫“网上邻居”）中看到这个文件，并且能够进行读取、修改、删除等 *** 作，那么在VB软件中也同样能够做到这些 *** 作，比如打开文件可以这样：

Open "\\电脑名称或IP地址\共享文件夹名\要 *** 作的文件名.扩展名" For Input As #1

从中我们可以看到， *** 作网络共享文件与 *** 作本地文件几乎是没有什么区别的，事实上如果把共享文件夹映射到本地服务器的虚拟驱动器上，比如把 "\\电脑名称或IP地址\共享文件夹名" 映射为驱动器z，那么上述语句就变为：

Open "z:\要 *** 作的文件名.扩展名" For Input As #1

这样就跟 *** 作本地文件完全一样了！

PS：请尽量把局域网内的电脑都设为同一个家庭组或工作组，这样可以省去许多连接上的麻烦

---