FredixBlog

It is often needed to know wether or not a file exists.
This simple function will do the job.
For instance, if we need to delete a file if it exists:

If FileExists("c:\myfile.txt") Then
    Kill "c:\myfile.txt"
End If

Here is the code of the function:

Public Function FileExists(FileName)
    On Error Resume Next
    Open FileName For Input As 1
    If Err = 0 Then
        FileExists = True
        Close 1
    Else
        FileExists = False
    End If
End Function

• Répartir les tâches du crontab unix
• Bon Jovi not dead opening a restaurant will be there for me
• La Serre 1 – Le trou
• How can I e-mail a file from Microsoft Access?
• Custom Autonumber Access 2000
• GetOpenFileName()