急~!!!!!! 如何用VB实现局域网内传送文件

可以用winsock控件
映射网络驱动器用WNetAddConnection2函数,查查MSDN,参数很简单
NetRESOURCE对象可以自己定义:

Private Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
pLocalName As Long
pRemoteName As Long
pComment As Long
pProvider As Long
End Type
使用WinSock控件可以收发文件，并且不需要源主机提供网络共享。
原理如同一些黑客程序，使用Client/Server方式。
首先在Server主机定义两个Winsock控件，client主机定义一个Winsock控件。
首先把Server主机的一个Winsock控件设置TCP协议及使用的端口号，调用.listen方法。
Client主机的Winsock控件设置服务主机的IP地址和端口号，调用Connect方法。
服务主机的侦听Winsock会收到连接请求，使用Accept(另一个Winsock控件Name)来响应，完成连接的建立。
服务端程序读文件，通过Send方法传送数据，
客户端程序有数据到达后会引发DataArrive事件，在其中调用get方法获取数据，写文件。
完成后两端断开连接，调用Close方法。