Datei/Ordner öffnen Makro

[sschultewolter]

Hallo,

ich hatte folgendes Makro bereits in einer alten Libre/Openoffice Version am Laufen. Habe nun ein Update gefahren und nun funktioniert dieses nicht mehr.


Ich habe im Formular eine Schaltfläche, deren Pfad sich nach der Seriennummer (id) richtet.

Code: Alles auswählen

Sub S_oeffneOrdner
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular")
	oFeld1 = oForm.getByName("id")
	stText = oFeld1.Text
	stURL =  "\\192.168.99.2\kunden\" & stText & "\"
	oFeld2 = oForm.getByName("Schaltflaeche_Ordner")
	oFeld2.TargetURL = stURL
End Sub

Erhalte aber lediglich die Fehlermeldung

Code: Alles auswählen

"\\192.168.99.2\kunden\0402\" ist keine absolute URL, die zum Öffnen an eine externe Anwendung übergeben werden kann.

Das ganze habe ich genutz unter Windows 10 und Linux (wobei hier die stURL um file:/// ergänzt werden musste).
Linux Client: Libreoffice 5.1
Windows Clients: Libreoffce 6.3

[gogo]

.TargetUrl benutze ich eigentlich nicht - hab' im Moment auch keine Doku dazu im Kopf, aber wenn du nur den Pfad allein an's System schickst, wird dieses nix damit anfangen können (weil der Ordner-Pfad ja keine ausführbare Datei ist)

Also: shell("dolphin '/tmp/'") wenn Du KDE hast, sonst "dolphin" durch nemo, nautilus ... ersetzen, oder falls das OS wechselt:

Code: Alles auswählen

sUrl=convertToURL("/tmp/")

select case GetGUIType
case 1
	shell("explorer.exe " + sUrl)
case 2
	msgbox "Mac!"
case 4
	shell("dolphin " + sUrl)
case else
	msgbox "OS zu exotisch ..."
end select

... explorer.exe hab' ich nicht getestet ...

[Freischreiber]

Hallo!

Ich hab so ein Makro auch, also unter Windows, und da ist um den URL-Aufbau herum noch ein convertToUrl(), also bei dir wäre das dann:

Code: Alles auswählen

stURL=convertToUrl("\\192.168.99.2\kunden\" & stText & "\")

Vielleicht ist es das ja...

Viele Grüße
Freischreiber

PS: Code korrigiert. Sorry.