WIN10系统下被坑的FreeBasic代码 VFB

  勇芳 1月前 468

以下代码只发生在WIN10系统里,其它系统正常,也不属于我们写代码的问题。

在文件的某个地址写入内容

  Open 文件名 For Binary Access Write As #M
  If Put(#M, 地址, by()) = 0 Then Function = True Else Function = False

代码没问题,在 XP 、WIN7  系统很正常,当来到了 WIN10 系统就发生问题,它会先删除文件,再写入,

我们只修改部分,到了W10就全清0,经过研究,去掉 Access Write 才可以

  Open 文件名 For Binary As #M
  If Put(#M, 地址, by()) = 0 Then Function = True Else Function = False


最新回复 (1)
    您需要登录后才可以回帖 登录 | 注册
  • sdo999 1天前
    0 引用 2
    认真学习下VFP
返回