Base-Handbuch - The Document Foundation Wiki

REM Die Maximalzahl an Kopien ist auf 5 Kopien eingestellt. Anschließend wird die
älteste Kopie ersetzt.
REM Dieses Verfahren deckt nicht ab:
REM - Dateneingaben, die bei bereits geöffneter Datenbank gemacht werden, da die
Daten erst beim Schließen der Datei in die *.odb-Datei geschrieben werden.
DIM oPath AS OBJECT
DIM oDoc AS OBJECT
DIM sTitel AS STRING
DIM sUrl_Ziel AS STRING
DIM sUrl_Start AS STRING
DIM i AS INTEGER
DIM k AS INTEGER
oDoc = ThisComponent
sTitel = oDoc.Title
sUrl_Start = oDoc.URL
oPath = createUnoService("com.sun.star.util.PathSettings")
FOR i = 1 TO 6
IF NOT FileExists(oPath.Backup & "/" & i & "_" & sTitel) THEN
IF i > 5 THEN
FOR k = 1 TO 4
IF FileDateTime(oPath.Backup & "/" & k & "_" & sTitel)