如何判断一个文件是否存在

[liujiaqiang]

如何判断一个文件是否存在

[runsoft]

Function: gf_directoryexists
values: string as_directoryname


ulong FILE_ATTRIBUTE_READONLY = 1
ulong FILE_ATTRIBUTE_HIDDEN = 2
ulong FILE_ATTRIBUTE_SYSTEM = 4
ulong FILE_ATTRIBUTE_DIRECTORY = 16
ulong FILE_ATTRIBUTE_ARCHIVE = 32
ulong FILE_ATTRIBUTE_NORMAL = 128
ulong FILE_ATTRIBUTE_TEMPORARY = 256
ulong FILE_ATTRIBUTE_COMPRESSED = 2048
ulong FILE_ATTRIBUTE_OFFLINE = 4096

ulong ll_code

ll_code = GetFileAttributes(as_DirectoryName)
if (ll_code <> -1) then
ll_code = ll_code - FILE_ATTRIBUTE_OFFLINE
if ll_code < 0 then
ll_code = ll_code + FILE_ATTRIBUTE_OFFLINE
end if
ll_code = ll_code - FILE_ATTRIBUTE_COMPRESSED
if ll_code < 0 then
ll_code = ll_code + FILE_ATTRIBUTE_COMPRESSED
end if
ll_code = ll_code - FILE_ATTRIBUTE_TEMPORARY
if ll_code < 0 then
ll_code = ll_code + FILE_ATTRIBUTE_TEMPORARY
end if
ll_code = ll_code - FILE_ATTRIBUTE_NORMAL
if ll_code < 0 then
ll_code = ll_code + FILE_ATTRIBUTE_NORMAL
end if
ll_code = ll_code - FILE_ATTRIBUTE_ARCHIVE
if ll_code < 0 then
ll_code = ll_code + FILE_ATTRIBUTE_ARCHIVE
end if
ll_code = ll_code - FILE_ATTRIBUTE_DIRECTORY
if ll_code < 0 then
return false
end if
return true
else
return false
end if

[liujiaqiang]

谢谢 清风兄，经常帮我解答，热烈感谢