'=============================================================================
' Beschreibung: Prüfen ob eine Datei bereits vorhanden ist
' -------------
' PARAMETER:
' INPUT             FullFileName
' OUTPUT            FileExists(boolean)
 
Public Function FileExists(ByVal FullFileName As String) As Boolean
    On Error GoTo error
 
    FileExists = Dir(FullFileName) <> ""
    Exit Function
error:
    FileExists = False
    Resume Next
End Function