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 [email protected]
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
