Я получаю ошибку
«Ошибка времени выполнения 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