Ошибка 70 VB6 EXE-приложение

Question

Я периодически получаю сообщение об ошибке 70 при запуске приложения VB6 Exe.

Я пытаюсь открыть текстовый файл, указанный в функции класса.Текст на файлере (сетевой файловый сервер)

Я попытался отложить обнаружение ошибки 70. Позже закройте файл и снова откройте.Но это тоже не сработало.

Код:

If FreeFile > 1 Then
   Close #1
End If

Open FileName1 For Append As #1  (I am getting Error 70)
Print #1, StringOut
Print #1, ""
Print #1, ""
Print #1, ""

Close #1

Open FileName2 For Append As #2
Print #2, StringOut
Close #2

Close

Answer 1

Вы должны использовать значение, возвращаемое функцией free file, поэтому небольшое изменение в порядке.

Dim File1Number As Integer
Dim File2Number As Integer

File1Number = FreeFile

Open FileName1 For Append As #File1Number   (I am getting Error 70)
Print #File1Number , StringOut
Print #File1Number , ""
Print #File1Number , ""
Print #File1Number , ""

Close #File1Number 

File2Number = FreeFile
Open FileName2 For Append As #File2Number
Print #File2Number, StringOut
Close #File2Number

Close #File2Number

Answer 2

Ошибка 70: ​​«Отказано в доступе».

Можете ли вы открыть этот файл с помощью блокнота, изменить его и сохранить? Если нет, то сначала решите эту проблему, а затем посмотрите на свой код.