错误 70 VB6 exe 应用程序答案

【问题标题】：Error 70 VB6 exe application错误 70 VB6 exe 应用程序
【发布时间】：2011-01-21 02:22:28
【问题描述】：

我在运行我的 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

【问题讨论】：

您是否检查过您是否具有打开文件的适当权限？

标签： vb6

【解决方案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

【讨论】：

【解决方案2】：

错误 70 是“权限被拒绝”。

你能用记事本打开那个文件，修改它，然后保存吗？如果没有，请先解决该问题，然后查看您的代码。

【讨论】：