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

Random Posts

• ShellWait()
• GetOpenFileName()
• Format a floppy in ACCESS without creating a batch file
• ADO program calling an Oracle PL/SQL stored procedure
• Webpage design: Frame or array?
• La rocaille (1)
• Connecting with tools such as cash drawer
• Titi Winterstein
• Dirty Flag for unbound form
• Practice the blues in all keys