Dim out As OutputStream
out=File.OpenOutput(File.DirApp, "Kontakte.eis", False)
File.Copy2(Job.GetInputStream, out)
out.Close
If File.Exists(File.DirApp, "Kontakte.eis") Then
Dim Kontaktdatei As RandomAccessFile
Kontaktdatei.Initialize(File.DirApp, "Kontakte.eis", False)
Kontakte = Kontaktdatei.ReadEncryptedObject(CopyrightString,0)
Kontaktdatei.Close
Else
Kontakte.Initialize
End If