错误的文件名或号码

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