Question

【VB】Command与Open FileName For Input As #1的问题

我已经把文件类型关联到我的EXE上了，我想用Command获得当前打开的文件的路径文件名，然后用作Open FileName For Input As #1中的FileName打开来用，可是提示“Run-time Error 52,Bad File name or number”……
我在Open FileName For Input As #1前加了一个msgbox filename，结果显示的的确是文件的路径，可是到了Open这句就不行了……
求解…。。。
唔……2L 用dir呼出的MSGBOX的确还是正确的路径……
忽然发现MSGBOX FILENAME对话框中的路径是有双引号的……

Answer 1

Open FileName For Input As #1 中的FileName一要用全路径表示
你试试
msgbox dir(FileName) 得出的结果是不是这个文件的文件名，不包过路径
如果你确定路径没问题，那你试试我这个函数

'读文件返回字符串函数
Public Function ReadFile(filePath As String) As String
Dim fileStr As String
Dim tem
Open filePath For Input As #1

Do While Not EOF(1)
Line Input #1, tem
fileStr = fileStr & tem & vbCrLf
Loop
Close #1
ReadFile = fileStr
End Function
'***************************************************************

Answer 2

一、请检查filename是否含有引号；
二、不用·#1，作如下修改：
dim i as Integer
i=FreeFile
Open FileName For Input As #i