错误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是“权限被拒绝。”

您可以用记事本打开该文件，更改并保存吗？如果没有，请先解决该问题，然后查看您的代码。