錯誤70 VB6 exe應用程序

Question

我在運行我的VB6 EXE應用程序時間歇性地收到錯誤70。

我嘗試打開一個文本文件，按照類函數給出。 文本是在文件管理器（網絡文件服務器）

我試圖延遲捕獲錯誤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

你應該使用免費的文件函數返回的值，所以稍有變化是爲了。

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是「權限被拒絕」。

你可以用記事本打開該文件，更改它，並保存它？如果不是，請先解決該問題，然後查看您的代碼。