Hallo,
Kornelia Lubke schrieb:
> einfach): Ich will den Dateinamen von der gerade geöffneten
> und aktiven
> Datei. Bitte jetzt nicht einfach die Funktion 'Function
> GetFileNameWithoutExtension (ByVal FileName as String,
> Optional Separator
> as String)' zitieren.
Nö, wozu sollte ich hier die falsche Funktion zitieren.
Du brauchst mutmaßlich das hier:
Sub Main
GlobalScope.BasicLibraries.LoadLibrary("Tools")
msgbox FileNameoutofPath(ThisComponent.URL)
End Sub
Allerdings halte ich es für Quatsch dafür eine Funktion zu bemühen, das
folgende Makro macht das Gleiche und ist unabhängig von jeder Funktion:
Sub Macro1
x = Split(ThisComponent.URL, "/")
msgbox x(UBound(x))
End Sub
> Ich weiß, dass es genau diese Funktion
> ist, die ich
> nutzen möchte.
Ja, also zur Sicherheit:
Sub Main
GlobalScope.BasicLibraries.LoadLibrary("Tools")
msgbox GetFileNameWithoutExtension(ThisComponent.URL)
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
