FILEEXISTS

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgFileexists
• 最后更新: 2016-03-13

---

测试文件是否存在

语法

declare function FileExists ( byval filename as zstring ptr ) as long

用法

#include "file.bi"
result = FileExists( filename )

或

#include "vbcompat.bi"
result = FileExists( filename )

参数

filename

要测试是否存在的文件名。

返回值

若文件存在，返回非零值（-1）；否则返回零（0）。

说明

FileExists 测试文件是否存在。

在内部，它可能会调用 Open() 和 Close() 函数，这可能产生一些副作用——例如，文件上现有的 Lock 可能被释放。

根据具体需求，检查文件是否存在的其他方法包括：使用 Dir() 函数（注意属性问题，并确保路径不含通配符），或尝试 Open 文件并检查返回值是否成功。

示例

#include "vbcompat.bi"

Dim filename As String

Print "Enter a filename: "
Line Input filename

If FileExists( filename ) Then
  Print "File found: " & filename
Else
  Print "File not found: " & filename
End If

平台差异

• Linux 要求 filename 大小写与文件实际名称匹配；Windows 和 DOS 不区分大小写。
• Linux 中路径分隔符为正斜杠 /；Windows 使用反斜杠 \，但也允许正斜杠；DOS 使用反斜杠 \。

与 QB 的差异

• FreeBASIC 新增

另请参阅

• Dir

返回 目录