vb 打开文件一直说找不到文件

这句有问题 Open App.Path &"c:\vb.txt" For Input As #fileno

app.path 是指工程所在的路径，比如“D:\程序”

那么 App.Path &"c:\vb.txt"就得到“D:\程序c:\vb.txt”

这样的路径肯定是找不到文件的。

如果你的文件保存在c盘根目录下，就改为Open "c:\vb.txt" For Input As #fileno

如果你的文件保存在工程所在的目录下，就改为

Open App.Path &"\vb.txt" For Input As #fileno

其次，只能将一行读取到一个变量中

要改成 Input #fileno, mystr

第三，文本文件的内容都是字符串，不能直接赋值给Single 变量

1.“运行时错误‘53’ 文件未找到”

通常是client.dll文件复制到c:\windows\system重新加载下

也可能是c:\WINDOWS\system32\drivers\etc的hosts文件丢失

2.提示70无权限

第一次运行通时，HOSTS文件被保护，不能改写。

不能改写的情况有二种：1.被杀毒软件保护，关掉杀毒即可，像麦咖啡就会保护；

2.关了杀毒还不能改写，就使用360安全卫士或其他工具，强制粉碎；粉完再建立个空的hosts的文件即可。

1.

建议你在调用这个“GetTxt”函数的时候把传递参数TxtPath写成完整的路径，如“C:\Users\Public\Documents\data.txt”。

2.

建议你将要打开的文件与工程文件放在同一目录下，调用这个“GetTxt”函数的时候把传递参数TxtPath写成

:

app.path

&

"data.txt"

。app.path代表工程文件所在存储路径。

希望能帮到你

---