DB-Titel aus vorhandenem Pfad auslesen

[MarkusL]

Hallo zusammen,

ich möchte gerne in einem Feld den Titel einer anderen Datenbank anzeigen, als die zur Zeit geöffnete (@dbtitel geht also nicht).

In der gleichen Maske steht im Feld1 der Servername und in Feld2 der Pfad.
Wie kann ich aus diesen beiden Felder den DB-Titel der dort angegebenen DB abfragen und in Feld3 anzeigen?

Inhalt Feld1: Servername
Inhalt Feld2: mail\meineMailbox.nsf
Inhalt Feld3: am liebsten der DB-Titel

Leider habe ich nichts brauchbares gefunden.

[klaussal]

Als Denkanstoss:

Code

Sub Initialize
  Dim db As New NotesDatabase ("",  Inputbox ("File name"))
  If db.IsOpen Then
    Messagebox "Title: " & db.Title & Chr(10) _
    & "File name: " & db.FileName
  Else
    Messagebox "Could not open database " & db.FileName
  End If
End Sub

[DerAndre]

Ok, klauss, Du warst schneller.

Ich drücke jetzt mal die Daumen, das jetzt nicht kommt: aber das soll mit Formel gemacht werden 

[klaussal]

Ich drücke jetzt mal die Daumen, das jetzt nicht kommt: aber das soll mit Formel gemacht werden

[Peter Klett]

Und wenn es mit Formel gemacht werden soll, wäre vielleicht ein @DBLookup auf den Datenbankkatalog möglich, dort finden sich Servernamen, Dateiname und Datenbanktitel (ich ignoriere mal die lokale Nutzung).
 

[MarkusL]

@ Klauss und DerAndre: natürlich hätte ich das gerne als Formel.
@ Peter Klett: Vielen Dank, das war der Denkanstoß, den ich brauchte.

Ich habe das Ganze jetzt über einen DBLookUp auf den DB-Katalog gelöst.