DB-Komprimierung für Offline-User

[os]

hallo notes-user,

auf dem server werden standardmässig nachts alle datenbanken komprimiert, aber was ist mit den datenbanken lokal auf einem laptop oder pc?

für diese lösung habe ich ein script geschrieben, das alle datenbanken lokal komprimiert und zum schluss eine statistikübersicht angibt. so kommen je nach grösse mal locker 500 mb ersparnis zusammen.

damit das script nicht wegen 5 kb eine 2 gb datenbank komprimiert, überprüfe ich vorher "ob es sich lohnt" zu komprimieren.

hier das script dazu:

Sub Click(Source As Button)
     
     Dim dbdir As New NotesDBDirectory("")
     Dim db As notesdatabase
     Set db = dbdir.getfirstdatabase(DATABASE)
     Dim reduziert As Double
     Dim zahl As Integer
     Dim behandelt As Integer
     
     Do Until db Is Nothing
           behandelt = behandelt + 1
           Print Now + "  [" + Format(behandelt,"000") + "]  Bitte warten, komprimiere Datenbank " + "  ->  """  + db.title + """"
           
           If Not db.isopen Then
                 Call db.open(db.server, db.filepath)
           End If
           
           If db.percentused < 90 Then
                 zahl = zahl + 1
                 reduziert = reduziert + db.compact
           End If
           
           Set db = dbdir.getnextdatabase
           
     Loop
     
     If reduziert > 1024 Then
           antw = Messagebox("Es wurden " & behandelt & " Datenbanken überprüft!" & Chr(10) &_
           "Davon wurden " & zahl & " Datenbanken komprimiert!" & Chr(10) & Chr(10) &_
           "Dies brachte eine Platzersparnis von " & Cstr(Format ( reduziert/1024 , "#,###")) & " KB",64,"Fertig!")
     End If
     
     Print Now + " Komprimierung abgeschlossen. Ersparnis: " & Cstr(Format ( reduziert/1024 , "#,###")) & " KB"
     
End Sub


So nun viel Spass damit ...

Und wieviel Platzersparnis hattet Ihr?

mfg
 os