首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb新手,一个关于路径的有关问题,求教

2013-12-28 
vb新手,一个关于路径的问题,求教本帖最后由 bcrun 于 2013-12-26 09:37:51 编辑Private Sub Form_Load()On

vb新手,一个关于路径的问题,求教
本帖最后由 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:\,那么就是\\了,所以要一个判断
另外就是权限问题

热点排行