Public Function FileExists(ByVal sFile As String) As Boolean
 
  'Der Parameter sFile enthält den zu prüfenden Dateinamen
 
  Dim Size As Long
  On Local Error Resume Next
  Size = FileLen(sFile)
  FileExists = (Err = 0)
  On Local Error Goto 0
End Function