vb读取文件

s = Form6.Text1.Text '从form6中得到文件路径以及文件名
百分之百是s的值是无效路径 就是说没找到文件.
你可以在Open s For Input As #1 上设置断点 然后查看s的值

或者可以这样测试:将一个文件复制到C盘根目录下改名为x.txt
然后将程序改为
s = "c:\x.txt"
就可以完全确定是不是路径有问题了

可能是文件s不存在或者路径错误

s = Form6.Text1.Text '从form6中得到文件路径以及文件名

if trim(s)="" or dir(s)="" then
msgbox "文件路径错误: " & s
exit sub
end if
Open s For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1