Habe einen Fehler welcher nur auf dem Mac auftritt, steht evtl. (ist mir nicht ganz klar) auch im Zusammenhang mit einem hier beschriebenen anderen Problem:
viewtopic.php?f=18&t=52922
Habe folgende Ordnerstruktur:
MeineAnwendung / Formulare / AufrufendeDatei.odt
MeineAnwendung / Rechnungen / Zieldatei.odt
In der Zieldatei habe ich folgendes Makro ausgeführt:
Code: Alles auswählen
pfad=thisComponent.Location
MsgBox pfad
file:///Users/mymini/Netzlaufwerk/MeineAnwendung/Rechnungen/Zieldatei.odt
In der Anwendung AufrufendeDatei.odt kommt also folgender Code:
Code: Alles auswählen
pfad2="file:///Users/mymini/Netzlaufwerk/MeineAnwendung/Rechnungen/Zieldatei.odt"
pfad2=convertFromURL(pfad2) ' Konvertierung von der URL in eine systemkonforme Adresse
msgbox ("pfad2=convertFromURL(pfad2)"+chr(13)+pfad2)
' BEVOR DIE RECHNUNG GEÖFFNET WERDEN KANN, MUSS GEPRÜFT WERDEN OB ES DIE DATEI MIT DEM
' ENTSPRECHENDEM NAMEN GIBT
dim oSFA as Object
dim ordner_liste()
oSFA=createUnoService("com.sun.star.ucb.SimpleFileAccess")
ordner_liste=oSFA.getFolderContents(pfad,False)
sucherfolg=0
for i=0 to uBound(ordner_liste())
datei=convertFromURL(ordner_liste(i))
if datei=pfad2 then sucherfolg=1
next
if sucherfolg=1 then
' Rechnung oeffnen
oShell=createUnoService("com.sun.star.system.SystemShellExecute")
msgbox pfad2
oShell.execute(pfad2,,0)
else
msgbox("Zu dieser Rechnung gibt es im Rechnungsordner keine Datei mehr oder deren Bezeichnung wurde geändert.")
end if
BASIC-Laufzeitfehler
Es ist eine Ausnahme aufgetreten
Type:com.sun.star.system.SystemShellExecuteException
Message: No such file or directory
Sorry, ich habe mir den Pfad zuvor durch thisComponent.Location anzeigen lassen, verstehe also nicht, warum es diese Datei nun nicht geben soll.
Verzichte ich aber auf die Konvertierung per ConvertFromURL, bekomme ich zumindest meine eigene Fehlermeldung in der MsgBox, aber es funzt trotzdem nicht richtig!