FileExists

[Evan]

This works in every situation. Its the best way to do it!

Private Function FileExists(FullFileName As String) As Boolean
On Error GoTo CheckError
    If FileLen(FullFileName) = 0 Then
        FileExists = False
    Else
        FileExists = True
    End If
Exit Function
CheckError:
    FileExists = False
End Function

[donW]

what is wrong with using :

if dir(fullfilename) > "" then
filename exists
else
filename dont exist
endif

[filburt1]

Not exactly, download this file and run your test on it.

Edit: Well the board rejected it because it was 0 bytes, and your function will fail with it.

[Evan]

Originally posted by filburt1
Not exactly, download this file and run your test on it.

Edit: Well the board rejected it because it was 0 bytes, and your function will fail with it.

How often are you going to want to check a 0 byte file though.
Thats my Q.

[Edneeis]

How about:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
 
Public Function FileExists(ByVal Path As String) As Boolean
    FileExists = PathFileExists(Path)
End Function
 
'Or you could just use it like this:
dim TorF as Boolean
TorF=PathFileExists(Path)

[jim mcnamara]

FileExists means the file is in the directory, not how big it is.
I create tmp files that are empty all the time, but I check for their EXISTENCE.

Different thing, I believe.

[Evan]

Originally posted by jim mcnamara
FileExists means the file is in the directory, not how big it is.
I create tmp files that are empty all the time, but I check for their EXISTENCE.

Different thing, I believe.

I could see that. I think I like the API version the best so far.

[Edneeis]

Actually here is a module that just has the most common FSO functions that I use only done through APIs so I don't have to distribute it.

[filburt1]

FSO = teh carp

My function = teh rox0r