双击关联文件出错, 有谁遇到过这种情况?

Question

如下代码,我想测试双击关联文件，假设(双击c:\01.aaa文件, 由下面代码生成的project1.exe打开), 结果出现错误,错误编号:52,错误描述是: 错误文件名或数, 错误位置在 Open fname For Binary As #fNumber 这条语句上..有谁能帮我看看哪里出错了?Option ExplicitPrivate Sub Form_Load()
    Dim rlsfn As String
    rlsfn = Command()
    If Len(rlsfn) > 0 Then
        rOpenFile rlsfn
    End If
End SubPrivate Sub rOpenFile(fname As String)    Dim fNumber As Long    fNumber = FreeFile    Open fname For Binary As #fNumber
        MsgBox "success"
    Close #fNumberEnd Sub

Answer 1

Private Sub Form_Load()
    Dim rlsfn As String
    rlsfn = Command()
    rlsfn = Replace(rlsfn, """", "")    '把前后多余的引号去掉,用mid也可以
    If Len(rlsfn) > 0 Then
        rOpenFile rlsfn
    End If
End Sub