Неверное имя файла или номер - PullRequest
0 голосов
/ 21 июня 2019

Я получаю ошибку

«Ошибка времени выполнения 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...