vb新手，一个关于路径的有关问题，求教
vb新手，一个关于路径的问题，求教
先上代码。我要实现的是在运行程序前，先让用户阅读一个协议。以上是读取协议的代码。协议的文件在 程序目录/files/xieyi.txt
问题出现了。有时候读取正常，能显示。但在有的客户机上，就死活读不到，一直提示找不到文件。但远程过去后发现 /files/xieyi.txt 是确实存在的。
求解。
------解决方案--------------------
是不是缺少相应的dll？或FileSystemObject遭到限制
------解决方案--------------------
如果是根目录App.Path会返回x:\，那么就是\\了，所以要一个判断
另外就是权限问题
本帖最后由 bcrun 于 2013-12-26 09:37:51 编辑
Private Sub Form_Load()
On Error Resume Next
Dim fso As New FileSystemObject
aa = App.Path & "\files\xieyi.txt"
If fso.FileExists(aa) = False Then
MsgBox ("找不到文件")
Unload Me
Else
Dim inputdata As String
showxieyi.Text = ""
Open App.Path & "\files\xieyi.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata '一行行读文件
showxieyi.Text = showxieyi.Text + inputdata + vbCrLf
Loop
Close #1
End If
End Sub
先上代码。我要实现的是在运行程序前，先让用户阅读一个协议。以上是读取协议的代码。协议的文件在 程序目录/files/xieyi.txt
问题出现了。有时候读取正常，能显示。但在有的客户机上，就死活读不到，一直提示找不到文件。但远程过去后发现 /files/xieyi.txt 是确实存在的。
求解。
------解决方案--------------------
是不是缺少相应的dll？或FileSystemObject遭到限制
------解决方案--------------------
如果是根目录App.Path会返回x:\，那么就是\\了，所以要一个判断
另外就是权限问题