使用FreeBASIC打开文件时文件自动消失，求问题排查方案

问题背景 #

使用FreeBASIC 1.10.1（2024-01-06）在Arch GNU/Linux（内核6.13.5）环境下编写文件读取程序，执行后目标文件myfile消失，程序打印Error opening the file. Error code: 0。尝试调整Access Read参数、更换Binary/Random打开模式、使用-lang fblite方言均未解决问题。

原始代码 #

Dim f as Integer

f = FreeFile

Open "myfile" For Input Access Read As #f
If Err > 0 Then Print "Error opening the file. Error code:" ; Err : End

Close #f
End

问题分析与解决方案 #

1. 错误码异常的原因 #

FreeBASIC中Err变量用于存储操作错误码，成功时为0，失败时为非0值。但在类UNIX系统下，部分文件操作错误可能无法被Err正确捕获，需结合系统原生错误码errno判断。此外，代码中的错误判断逻辑本身没问题，但错误码显示为0存在矛盾——要么是Err未被正确更新，要么是误判了程序的执行流程。

2. 文件消失的核心原因 #

For Input模式仅用于读取已存在的文件，不会创建或删除文件，因此文件消失不可能由当前代码直接导致，大概率是以下两种情况：

• 工作目录不匹配：程序运行的工作目录与存放myfile的目录不一致。比如在代码目录编译程序，却在其他目录运行，程序会在当前运行目录查找文件，而你仍在代码目录查看，误以为文件消失。
• 误操作或历史代码影响：之前测试时使用过For Output/For Append等会覆盖/创建文件的模式，或是手动误删了文件。

3. 修复后的代码示例 #

方案一：检查文件存在性+使用绝对路径

' 先检查文件是否存在
If Dir("myfile") = "" Then
    Print "File not found."
    End
End If

' 使用绝对路径打开文件（替换为你的实际文件路径）
Dim f As Integer
f = FreeFile

Open "/home/your_username/path/to/myfile" For Input Access Read As #f
If Err > 0 Then
    Print "Error opening the file. Error code:" ; Err
    End
End If

Close #f
End

方案二：结合系统错误码排查

#include "errno.bi"

Dim f As Integer
f = FreeFile

Open "myfile" For Input Access Read As #f
' 同时检查FreeBASIC错误码和系统errno
If Err > 0 Or Errno() <> 0 Then
    Print "FreeBASIC error code:" ; Err
    Print "System error code:" ; Errno()
    Print "Error description:" ; *strerror(Errno())
    End
End If

Close #f
End

额外建议 #

• 始终使用绝对路径打开文件，避免工作目录不一致导致的问题。
• 测试前备份目标文件，排除误操作或历史代码的影响。
• 若使用FreeBASIC的类UNIX版本，优先结合errno排查底层系统错误。

内容的提问来源于stack exchange，提问作者Jean Dubois