エラー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は「許可が拒否されました」です。

このファイルをメモ帳で開いて変更して保存できますか？そうでない場合は、まずその問題を解決してから、コードを見てください。