Check if file exists?

[Ariel Benzakein]

Does anyone have a function that will check to see if a file
exists?


------------------

[Aldo Cavini]

I do OPEN it for INPUT, and check ERR. If ERR = 53, then the file doesn't exist. If success, remember you have an OPENed file - If it is only for test (not to work on it) you should CLOSE the file.

------------------

[Edwin Knoppert]

GetAttr()

------------------

[Lance Edmonds]

Searching the BBS for "exists" in Subject-Only gets about 20 hits. In summary:

There is an EXISTS() function in COMMON32.BAS using DIR$():

FUNCTION Exist(file AS STRING) EXPORT AS INTEGER  
  FUNCTION = LEN(DIR$(file, 17)) > 0
END FUNCTION

However, using DIR$() in the above code may cause problems if it is called from within a DIR$() file search loop. Something like this may be more useful: (Thanks to Fred Oxenby for this code)

Function FSO_FileExists(ByVal FileSpec$)Export As Long
Local fd As WIN32_FIND_DATA
Local fAttr As Dword
Local hFind&
  If Len(FileSpec$)= 0 Then Function = %false:Exit Function
  hFind& = FindFirstFile(ByVal StrPtr(FileSpec$), fd)
  If hFind& = %INVALID_HANDLE_VALUE Then Function = %False:Exit Function
  Call FindClose(hFind&)
  fAttr = fd.dwFileAttributes
  Function = %True
  'NotDirectory|NotTemporary
  If (Bit(fAttr, 4)=1) Or (Bit(fAttr,8)=1) Then Function = %false
End Function

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

[Edwin Knoppert]

This topic has been discussed before.
I'm curious why GetAttr is not good enough??

I'm always using this and never had a problem.
Only with PB/DLL20<>VB3.

This is how i use it:
Errclear
a = GetAttr( FileName )
If Err = 0 And IsFalse( a And %FILE_ATTRIBUTE_DIRECTORY ) then

'''''''

End If

------------------

[Lance Edmonds]

No one has said GetAttr() would not work... like many programming problems, there are often several solutions available.

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>