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
teuff