Public Function FileExists(ByVal sFile As String) As Boolean
  Dim Size As Long
  On Local Error Resume Next
  Size = FileLen(sFile)
  FileExists = (Err = 0)
  On Local Error GoTo 0
End Function

Rechtschreibfehler stehen unter Copyright und d?rfen nur gegen Bezahlung weiterverwendet werden.