[Gelöst] "getDateTimeModified(sUrl)" verwerten - wie?

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [Gelöst] "getDateTimeModified(sUrl)" verwerten - wie?

Re: die Ausgabe von "getDateTimeModified(sUrl)" verwerten - wie?

von geimist » Sa, 15.08.2009 13:37

Vielen Dank für Eure Hilfe.

Hier ist der Code nochmal für die Nachwelt:

Code: Alles auswählen

function sDocDatum(vDat) as String
	WTage = Array("","Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag")
	Monat = Array("", "Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")
   	BDatum = DateSerial(vDat.Year, vDat.Month, vDat.Day)
   	sDocDatum = vDat.Year & "-" & Monat(vDat.Month) & "-" & vDat.Day & "_" & WTage(WeekDay(BDatum)) & "_" & vDat.Hours & "-" & vDat.Minutes & "Uhr"
   	End function


Sub SICHERUNGSKOPIE_ERSTELLEN

'...............

'=============== Datum für Dateinamen aufbereiten / Auslesen des Änderungsdatums der Datei
	Dim sourceURL
	Dim SimpleFileAccess
	Dim oDateTime
	Dim oDocDateTime

	sourceURL = ThisComponent.getUrl()
   	oSimpleFileAccess = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )
    oDateTime = oSimpleFileAccess.getDateTimeModified( sourceURL )
    oDocDateTime = sDocDatum(oDateTime)


'................................

Re: die Ausgabe von "getDateTimeModified(sUrl)" verwerten - wie?

von ykcim » Fr, 14.08.2009 16:14

Hallo Stephan,

du musst eine Variable vom Typ des Structs verwenden.

Code: Alles auswählen

Dim myDate As New com.sun.star.util.DateTime
Dim oUcB as object
Dim sUrl as String

oUcB=createUnoService("com.sun.star.ucb.SimpleFileAccess")
sUrl=ThisComponent.getURL()
mydate=oUcB.getDateTimeModified(sUrl)

msgbox str(mydate.day)+"."+str(mydate.month)+"."+str(mydate.year)
mfg
Michael

Re: die Ausgabe von "getDateTimeModified(sUrl)" verwerten - wie?

von eBayer » Fr, 14.08.2009 16:08

Hallo Stephan,
schau mal hier hinein: http://www.oooforum.org/forum/viewtopic.phtml?t=5030
Ich denke, das gibt Dir die notwendigen Informationen.
Gruß eBayer

[Gelöst] "getDateTimeModified(sUrl)" verwerten - wie?

von geimist » Fr, 14.08.2009 15:55

Hallo,

ich benötige das Änderungsdatum einer Datei. Dazu dient die Methode "getDateTimeModified(sUrl1)" aus com.sun.star.ucb.SimpleFileAccess
Der Nachstehende Code sollte eigentlich den Zeitwert in einer Msgbox wiedergeben, doch die bleibt leer. Nach OK kommt dann noch die Fehlermeldung: "Fehler in Zeile 345. Fehler-Nr. 380. Falscher Wert für Eigenschaft."
Im Basic-Buch steht, dass diese Methode ein Struct des Typs com.sun.star.util.DateTime zurück gibt. Wahrscheinlich weiß ich nicht, wie ich dies nutzen muss.

Code: Alles auswählen

Dim oUcB as object
Dim sUrl as String

oUcB=createUnoService("com.sun.star.ucb.SimpleFileAccess")
sUrl=ThisComponent.getURL()
MsgBox oUcB.getDateTimeModified(sUrl)

Nach oben