公司每天要记录一些内容到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
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
http://download.csdn.net/detail/geoff08zhang/4571358
仅仅为了读一个文件而开放整个 D$ 权限不够安全。可行的方案是:
服务器开启一个共享目录;
填 Excel 表的普通用户有写权限,向共享目录写一个用用户名区分的 txt 文件;
执行 exe 的汇总用户有读权限,可以读取其他用户的 txt 文件;
如果数据保密性要求不高,共享目录直接开读取权限给所有人,简化管理。