Check if file exists

[Madboy]

Private Function CheckForFile(FileName) As Boolean
'Check if file exists
CheckForFile = (Dir(FileName) <> "")
End Function
 
Private Sub Form_Load()
If CheckForFile(App.Path & "\Yourfile") Then
'Do the correct thing
Else
'Do the incorrect thing
End If
End Sub

Thanks Si_The_Geek for updating my previous code

[manavo11]

This has been posted more than once before...

[Madboy]

Just keeping everyone up to date,

Not everybody backtrack threads you know

[frigginjerk]

This should be faster

Private Function CheckForFile(byval FileName as string) As Boolean
     'Check if file exists
     CheckForFile = Lenb(Dir(FileName))
End Function

[Madboy]

Ok, i might try that later

[manavo11]

Originally posted by Madboy
Just keeping everyone up to date,

Not everybody backtrack threads you know

I thought people would use the use the search feature to find something specific instead of reading through all the posts...

[Madboy]

Some n00bs dont know how to search, and even if you do search, you have to backtrack through the list

[manavo11]

So should I start reposting all the things I posted when the codebank first opened? Anyway, never mind...

[Fox]

I'm used to this one:

Public Function Exists(iFileName As String) As Boolean
    'Check filename
    Exists = (Len(Dir(iFileName, vbArchive Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem)) > 0)
End Function

[Madboy]

In a sense that is better, it searches for all atributes of the file

[Protocol]

But doesn't the Dir command automatically searches all different types of file attributes by default? So what's the sense specifiying the type?

And secondly...how in anyway is Lenb(Dir....etc) faster that just plain Dir(...)?

For me the shortest way proves to be the fastest and most easily understood...

If Dir(FilePath)<>"" Then
    DoThis
Else
    DoThisInstead
End If

Just my suggestion....

[crptcblade]

Originally posted by Protocol
And secondly...how in anyway is Lenb(Dir....etc) faster that just plain Dir(...)?

For me the shortest way proves to be the fastest and most easily understood...

If Dir(FilePath)<>"" Then
    DoThis
Else
    DoThisInstead
End If

Just my suggestion....

In general, numeric comparisons are much faster than string comparisons. Shortest code does not always equal fastest code.

[Protocol]

@ crptcblade....

I read yah and I understand what your saying...

Guess I misphrased when I said "fastest"....

[Madboy]

....as long as it works thats the main thing for me.

[Chrispybee]

Ok guys & Gals, the problem i've been having is if a file exists how to I skip. Could you put this in??

Ta

[peet]

Originally posted by Chrispybee
Ok guys & Gals, the problem i've been having is if a file exists how to I skip. Could you put this in??

Ta

[Madboy]

how do you mean skip?

[MartinLiss]

Originally posted by Madboy
Just keeping everyone up to date,

Not everybody backtrack threads you know

Have you read the first thread in this forum which says "In order to avoid duplicating something that is already in the Codebank, please do a search before posting." In other words DON'T "[keep] everyone up to date".

[Madboy]

Sorry, this post is ancient, i know better now