Fatal编程技术网
  • vb6/
  • 错误70 VB6 exe应用程序

错误70 VB6 exe应用程序

vb6

错误70 VB6 exe应用程序,vb6,Vb6,运行VB6 Exe应用程序时，我间歇性地遇到错误70 我尝试从类函数中打开一个文本文件，如下所示。 文本位于文件服务器（网络文件服务器）上 我试图延迟捕捉错误70。 稍后关闭文件并重新打开。 但这也不起作用 代码： 您应该使用freefile函数返回的值，因此需要做一些细微的更改 Dim File1Number As Integer Dim File2Number As Integer File1Number = FreeFile Open FileName1 For Append As #

运行VB6 Exe应用程序时，我间歇性地遇到错误70

我尝试从类函数中打开一个文本文件，如下所示。 文本位于文件服务器（网络文件服务器）上

我试图延迟捕捉错误70。 稍后关闭文件并重新打开。 但这也不起作用

代码：

您应该使用freefile函数返回的值，因此需要做一些细微的更改

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

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

是否检查了您是否具有打开该文件的适当权限？ 
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