[gelöst] ThisComponent.getURL() funktioniert nicht über Schaltfläche am Formular

[teuff]

Hallo,
Ich brauche den aktuellen Pfad meiner Base-Datei. Mit thisComponent.getUrl() lässt er sich abrufen, wenn ich das Makro im Code mit F5 starte. Wenn ich die Prozedur jedoch über eine Schaltfläche vom Formular aus aufrufe, erhalte ich nur einen Leerstring. Ich muss ein bestimmtes Directory programmgesteuert auslesen können.

Die Beispielprozedur funktioniert wie gesagt nur vom Editor aus. Kennt jemand das Phänomen und gibt es Abhilfe?

Code: Alles auswählen

Sub Grundordner_ermitteln
	' Kompletten Pfad mit GetCurrentFolder auslesen
	' Pfad parsen, mit ReDim letzte 2 Elemente (Dateiname + Ordner) entfernen
	Dim sPfadName as String
	Dim sParts() as Variant
	Dim sUrl as String
	sUrl = thisComponent.getURL()   
	sPfadName = sUrl 'GetCurrentFolder()
	sParts() = Split(sPfadName, "/")
	ReDim Preserve sParts(0 to UBound(sParts) - 2)
	sPfadName = Join(sParts, "/")
	MsgBox(sPfadName)
End Sub

Grüße,
teuff

[bmk]

Hallo teuf,

vermutlich muss es thisComponent.Parent.geturl lauten, da thisComponent in diesem Fall die Schaltfläche ist.

Gruß bmk

[teuff]

Vielen Dank, das ist die Lösung. Jetzt funkioniert es wie gewünscht.
Grüße, teuff