求助，大神们。通过VB做个简单的局域网服务器。

公司每天要记录一些内容到EXCEL表格里，每个人一天，我想通过局域网把每天的内容都记录到我的电脑里面 比如 D盘 1。txt,做了一个VB小程序，一个添加按钮，一个查询按钮。一个写入到我的电脑1.txt,一个读取我的电脑1.txt到listbox控件里面，代码如下：自己电脑IP172.16.2.10，自己电脑访问正常，但是放到其他电脑上就不行了，求指教。
Private Sub Command2_Click()
List1.Visible = True
List1.Clear
Dim s As String
Dim a As String
Dim keyword As String
Dim keyword1 As String
Dim lujing As String
lujing = "\\172.16.2.10\D$\1.txt"
keyword1 = Text1.Text
Open lujing For Input As #1
While Not EOF(1)
Line Input #1, s
If InStr(1, s, keyword1) > 0 Then List1.AddItem List1.ListCount + 1 & " " & s
Wend
Close #1
End Sub --------------------编程问答-------------------- 还不如做个ASP页面直接入数据库 --------------------编程问答-------------------- 这有很多socket源码，服务器和客户端都有，你找一个修改一下：
http://download.csdn.net/detail/geoff08zhang/4571358  --------------------编程问答-------------------- 大概你的路径没开共享 --------------------编程问答-------------------- 很明显, 别人根本就无法从网络访问你的电脑. 你先得确认别人在运行里面输入\\172.16.2.10\D$\1.txt 可以打开你的这个文件才行. --------------------编程问答-------------------- 默认共享 D$ 仅供管理员访问。
仅仅为了读一个文件而开放整个 D$ 权限不够安全。

可行的方案是：
服务器开启一个共享目录；
填 Excel 表的普通用户有写权限，向共享目录写一个用用户名区分的 txt 文件；
执行 exe 的汇总用户有读权限，可以读取其他用户的 txt 文件；
如果数据保密性要求不高，共享目录直接开读取权限给所有人，简化管理。 --------------------编程问答-------------------- 不要用目录共享的方式。在你的电脑上写一个接收小程序。开放一个UDP端口。客户端直接向这个端口发数据。你收到数据再写到硬盘里 --------------------编程问答-------------------- 那还不如自己装个IIS,然后写个简单的ASP页面让同事填写并提交算了.

补充：VB ,  网络编程