So wie ich die Frage verstehe geht es um das Datum der Datei innerhalb des Dateisystemes und nicht eines Datumseintrags im Dokumenteninfo. Ist meine Einschätzung richtig?
Falls Ja muss ich leider zugeben das ich nichts von Dateisystemroutinen innerhalb vom Basic weiss mit dem auch das Dateidatum manipuliert werden kann. Evtl. könnte hier ein Tool ausserhalb von OpenOffice.Org abhilfe schaffen oder aber es gibt solche Routienen im OfficeBasic. -- Mot On 10/11/07, Marcus Mangelsdorf <[EMAIL PROTECTED]> wrote: > > >> ein Trick ein, das Datum bei den neuen Dateien automatisch > >> wieder auf den alten Wert zu setzen? > >> > > > > Nach dem Öffnen/Einlesen der Quelle mit Basic die > > DokumentenInformationen auslesen und vor dem Speichern im "neuen" > > Dokument setzen. > > > > hint: ThisComponent.DocumentInfo > > > > Cheers > > Winfried > > > > Hallo Winfried, > > ich hab mir als Grundlage den DocumentConverter von hier > (http://www.ooomacros.org/user.php#95532) angeschaut, und versucht, die > Informationen in der Art zu lesen und wieder zu schreiben: > > oDoc = StarDesktop.loadComponentFromURL( ConvertToUrl( > cSourceName ), "_blank", 0,_ > oImportOptions ) > oDocInfo = oDoc.DocumentInfo > ... > * oDoc.DocumentInfo = oDocInfo > oDoc.storeToURL( cDestURL, oExportOptions ) > > Leider habe ich bis jetzt keine Basic-Erfahrungen (nur Delphi :)) und > weiß nicht, ob das so überhaupt funktionieren kann, da ja eigentlich > auch in der Konvertierungsroutine nichts mit der DocumentInfo gemacht > wird. Jedenfalls bricht es bei mir mit folgender Fehlermeldung ab: > "Leseproblem. Eigenschaft ist schreibgeschützt." und zwar in der Zeile, > die oben mit dem * gekennzeichnet ist. > > Ich hoffe ich hab mich nicht zu blöd angestellt, hab vor meiner ersten > Mail noch den integrierten Assistenten benutzt, den man glaub nicht > bearbeiten kann. > > Grüße aus Stuttgart > Marcus > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
