这是我自己写的代码，打算用来打开我选中的文件，可这些语句不能实现，请高人帮指点迷津，谢谢了！
fname = File1.Path + File1.FileName
Open "fname" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1

去掉"fName"的双引号

收到的鲜花

• multiple1902 于 2008-10-19 15:43 送鲜花  18朵   附言：一语中的

我的具体事件过程是这样的

Sub File1_Click()
fname = File1.Path + File1.FileName
Open fname For Input As #1
Text1.Text = Input(LOF(1), #1)
End Sub
已经按照你说的改了 ，可还是不行这是为什么呢？？请指教！

程序是这样的
Sub File1_Click()
fname = File1.Path + File1.FileName
Open fname For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub

顺便寻求哪位高人的QQ号码，有些程序方面的问题想请教，谢谢！

用了 As #1 的时候,如果你要打开的文件已经被打开,则你这句肯定要出错的,为了防止这个错误,常用一句代码来获得一个自由句柄
dim FileNum as long
FileNum =FreeFile
open ..... as #FileNum
......

还有,你的Text1.Text = Input(LOF(1), #1)这一句前,一定要判断是否到了文件尾
do while not eof(FileName)
.....

[[it] 本帖最后由 不说也罢 于 2008-10-24 18:44 编辑 [/it]]