excel - 错误的文件名或编号

Question

我收到错误

“运行时错误 '35'：错误的文件名或编号”

当我使用此代码打开与我的应用程序相关的文本文件时。

文件关联是使用 inno 设置的。

当我替换Command$并"C:\Users\Dave\Documents\jconv.cppl"在设计模式下运行它时，没有错误。

代码：

Private Sub Form_Load()

    Dim DoubleClickedFile As String
    Dim sFileText As String
    Dim iFileNo As Integer

    DoubleClickedFile = Command$

    If DoubleClickedFile <> "" Then

        DoubleClickedFile = Mid(DoubleClickedFile, 4, Len(DoubleClickedFile) - 3)

        Text1.Text = DoubleClickedFile 'to check if the file and path is good

        iFileNo = FreeFile
        Open DoubleClickedFile For Input As #iFileNo
        Input #iFileNo, sFileText
        Text1.Text = sFileText
        Close #iFileNo

    End If

End Sub

标签： excelvb.net