OpenOffice.info

If not FileExists(PfadDatei ) Then 
GetFileDate = ""
Exit Function
End If

Sub Letzte_Aenderung()
msgbox FileDateTime("D:\Daten.txt")
end Sub

[quote]Ich habe Apache-OpenOffice 4.1.6 auf meinem Rechner installiert. Demnach ist diese Option wohl nicht nur für LibreOffice.[/quote]

Dann kann AOO an der Stelle mehr als ich dachte. Das muss aber eine neuere Funktion sein, früher hat das nicht funktioniert.

[quote]Die Variante mit oleService = createUnoService("com.sun.star.bridge.OleObjectFactory" funktioniert auch.[/quote]

Ich würde diese Version auch bevorzugen. Der Grund ist das das eine spezielle API-Funktion für diesen Zweck ist, die sehr zuverlässig funktioniert, wohingegen die Ausführung von VBA nicht immer zuverlässig ist.

[quote]Schön wäre es noch, wenn man den Fehler abfangen kann falls eine Datei nicht existiert.
[/quote]

Füge am Anfang der Function ein:

[code]If not FileExists(PfadDatei ) Then
GetFileDate = ""
Exit Function
End If[/code]

[quote]Ist es richtig, dass ich mit dem MSScriptControl.ScriptControl jedes beliebige Script erstellen und mit WSH.ExecuteStatement starten kann?

[/quote]zumindest jedes VBS, ja.

[quote]Gibt es noch eine andere Möglichkeit mit den normalen Bordmitteln die letzte Änderung zu ermitteln?[/quote]

z.B.:

[code]Sub Letzte_Aenderung()
msgbox FileDateTime("D:\Daten.txt")
end Sub[/code]


Gruß
Stephan

[quote]Dein Programm läuft bei mir einwandfrei (LibreOffice 5.3.x)[/quote]

habe ich garnicht gewusst das das in LO auch so geht, denn es ist ja kein eigentliches VBA.

In OO geht das nicht.


Gruß
Stephan

Sub Main
Msgbox Format(GetFileDate("D:\daten.txt"),"dd.mm.yyyy hh:mm:ss")
End Sub

Function GetFileDate(PfadDatei As String)
oleService = createUnoService("com.sun.star.bridge.OleObjectFactory") 
WSH= oleService.createInstance("MSScriptControl.ScriptControl") 
WSH.Language = "VBScript" 
vbs=vbs+"set objFSO = CreateObject(""Scripting.FileSystemObject"")"+Chr(10) 
vbs=vbs+"set objFsoD = objFSO.GetFile("+CHR(34)+PfadDatei+CHR(34)+")"+Chr(10) 
vbs=vbs+"dTemp = objFsoD.DateLastModified" +Chr(10)
WSH.ExecuteStatement(vbs) 
GetFileDate = WSH.CodeObject.dTemp.Value
End Function

Das VBS musst Du in OO über "com.sun.star.bridge.OleObjectFactory" ausführen, z.B.:

[code]Sub Main
Msgbox Format(GetFileDate("D:\daten.txt"),"dd.mm.yyyy hh:mm:ss")
End Sub

Function GetFileDate(PfadDatei As String)
oleService = createUnoService("com.sun.star.bridge.OleObjectFactory")
WSH= oleService.createInstance("MSScriptControl.ScriptControl")
WSH.Language = "VBScript"
vbs=vbs+"set objFSO = CreateObject(""Scripting.FileSystemObject"")"+Chr(10)
vbs=vbs+"set objFsoD = objFSO.GetFile("+CHR(34)+PfadDatei+CHR(34)+")"+Chr(10)
vbs=vbs+"dTemp = objFsoD.DateLastModified" +Chr(10)
WSH.ExecuteStatement(vbs)
GetFileDate = WSH.CodeObject.dTemp.Value
End Function[/code]


in LO ist das z.Z. nicht ganz in Ordnung, der Fehler ist gemeldet:
https://bugs.documentfoundation.org/show_bug.cgi?id=117739


Gruß
Stephan

  Option VBASupport 1  

Hey Tim,

also, grundsätzlich: VBA-Code ist nicht identisch mit AOO/LO Basic-Code, insbesondere, was die Objekte angeht!!!

Wenn Du mit OpenOffice/LibeOffice zukünftig arbeiten möchtest, solltest Du Dich intensiv mit dem Objektmodell von dem Programm beschäftigen (UNO).

Es gibt zwar einen Kompatibilitätsmodus und Dein Programm läuft bei mir einwandfrei (LibreOffice 5.3.x) - aber das ist immer nur ein Kompromiss!!

Bei Dir fehlt wahrscheinlich die Zeile

[code] Option VBASupport 1 [/code]

ganz am Anfang des Moduls, die den Kompatibilitätsmodus aktiviert. Nur dann werden VBA-Syntax Ausdrücke überhaupt interpretiert - und - soweit möglich - umgesetzt.

VG
Tom