Office中国论坛/Access中国论坛

标题: 不知道错在什么地方啊，请求解决！ [打印本页]

作者: ilike 时间: 2006-5-31 19:00
标题: 不知道错在什么地方啊，请求解决！
Dim objstream_r As New Stream
Dim i As Long
Dim file_info(3) As String

With objstream_r
.Mode = adModeRead
.Type = adTypeText
.Charset = "GB2312"
.Open "URL=http://192.168.1.3/software/file_version.txt"  "显示错误之处
For i = 0 To 3
      file_info(i) = .ReadText(adReadLine)
      Debug.Print file_info(i)
Next

End With<IMG>

作者: sgrshh29 时间: 2006-5-31 21:47
这里： .Mode = adModeRead
改为： .Mode = adModeReadWrite
这里： .Open "URL=http://192.168.1.3/software/file_version.txt"
改为： .Open
      .LoadFromFile "URL=http://192.168.1.3/software/file_version.txt"
      .Position=0
试试吧，不过这个URL=http://192.168.1.3/software/file_version.txt好像不存在。用其它的替代测试过了。

作者: ilike 时间: 2006-6-1 18:08
呵呵，谢谢了啊！“URL=http://192.168.1.3/software/file_version.txt”不是不存在，192.168.1.3是内网ip地址！

作者: ilike 时间: 2006-6-2 01:32
很感谢你，不过程序好像还有问题！晕……，你有qq吗？我的是415865399

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)