How do you get the directory the current database is in?

DBDir := @LeftBack(@Subset(@DbName;-1); "\\");
DBName := "database.nsf";
Database := @If(@Trim(DBDir) != ""; DBDir + "\\" + DBName; DBName);
Server := @Subset(@DbName;1);

Applies to Notes Versions: 3