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

[geimist]

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)

[eBayer]

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

[ykcim]

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

[geimist]

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)


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