[de-discuss] Backup-Makro für Datenbankdateien

Hallo Listige,

ich versuche gerade ein Backup-Makro für Datenbankdateien zu
konstruieren. Das Makro soll einfach beim Öffnen einer Base-Datei die
Datei einmal in den Backup-Ordner kopieren. Dort sollen bis zu 5
Backup-Dateien gelagert werden. Ist die höchste Nummerierung erreicht,
so soll die älteste Datei überschrieben werden.

Was ich erreiche ist, dass die Dateien wunschgemäß bis zur 5. kopiert
werden. Was ich mit einer Fehlermeldung quittiert bekomme ist der
Vergleich der Erstellungszeiten der Backups.

Bei dem folgenden Vergleich kommt die Meldung "Falscher Wert für
Eigenschaft"
--------------
IF oFile.getDateTimeModified(oPath.Backup & "/" & k & "_" & sTitel) <
oFile.getDateTimeModified(oPath.Backup & "/" & k+1 & "_" & sTitel) THEN
---------------

Vielleicht weiß jemand von Euch Rat?

Gruß

Robert




Ich kopiere das komplette Makro einfach einmal in diese Mail:

-----------------------------
Sub Datenbankbackup
        DIM oPath AS OBJECT
        DIM oFile AS OBJECT
        DIM oDoc AS OBJECT
        DIM sURL AS STRING
        DIM sTitel AS STRING
        DIM sUrl_start AS STRING
        DIM i AS INTEGER
        oDoc = ThisComponent
        sTitel = oDoc.Title
        sUrl_start = oDoc.URL
        oPath = createUnoService("com.sun.star.util.PathSettings")
        oFile = createUnoService("com.sun.star.ucb.SimpleFileAccess")
        FOR i = 1 TO 6
                IF NOT oFile.exists(oPath.Backup & "/" & i & "_" & sTitel) THEN
                        IF i > 5 THEN
                                FOR k = 1 TO 5
                                IF oFile.getDateTimeModified(oPath.Backup & "/" & k & "_" & sTitel)
<  oFile.getDateTimeModified(oPath.Backup & "/" & k+1 & "_" & sTitel) THEN
                                        i = k
                                        EXIT FOR
                                END IF
                                NEXT
                        END IF
                        EXIT FOR
                END IF
        NEXT
        sUrl = oPath.Backup & "/" & i &"_" & sTitel
        oFile.copy(sUrl_start,sUrl)
End sub

---------------------------------------

-- 
Informationen zum Abmelden: E-Mail an discuss+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/discuss/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert