Determine if file exists

[vbBoy]

Hello,

I would like to have a function or so can check if a given file exists.

Can anyone help please.......


Thanks

vbBoy.

[dlm]

Hi,

You can use this code

Public Function FileExists(Bestand As String) As Boolean
    FileExists = (Dir(Bestand) <> "")
End Function


Public Function Run_Update_Quotations()
    strSource = "\\Euermw01\Access\SalesDB\Data\Quotations_Data.mdb"
    strDestination = "\\Euermw01\Access\SalesDB\Data\Quotations_Backup_" & _
                     Day(Now()) & "_" & Month(Now()) & "_" & Year(Now()) & ".mdb"
    If Not FileExists(strDestination) Then
        FileCopy strSource, strDestination
    End If

...
End Function

[plenderj]

'' Does a given file exist ?
Private Function Exists(ByVal strFullPath As String) As Boolean
    Exists = Len(Dir(strFullPath)) <> 0
End Function

[darre1]

use the Dir() funciton.

usage Dir("filepath")

example:

If Dir("C:\bob.txt") Then 'File exists
    'you code here
End if

[Nightwalker83]

Originally posted by darre1
use the Dir() funciton.

usage Dir("filepath")

example:

If Dir("C:\bob.txt") Then 'File exists
    'you code here
End if

Sorry to say this but your code doesn't work.

[plenderj]

teeheehee

[darre1]

you're quite right.
should be:

If Dir("C:\bob.txt") <> "" Then 'File exists
    'you code here
End if

[darre1]

Originally posted by plenderj
teeheehee

bollocks

[plenderj]

Thats the normal way of doing it, but my approach is actually faster as far as I know.
Comparing numbers is faster than strings you see

[darre1]

true.