Es ist zwar nicht ganz ersichtlich was das Problem ist aber:
Mit der Formel @DBName gibt die eine Liste zurück:
_server:=@Subset(@DBName; 1)
_filepath:=@Subset(@DBName; -1)
! Wenn die Datenbank lokal liegt ist der erste Eintrag "" !
Per LS über die Eigenschaften Server und FilePath des NotesDatabase-Objektes:
Dim s as NotesSession
Dim db as NotesDatabase
Dim strServer as String
Dim strFilePath as String
Set s = New NotesSession
Set db = s.CurrentDatabase
strServer = db.Server
strFilePath = db.FilePath
Gruß
Johnson