help keep the Notes workspace from being cluttered with database icons. The
code below can be used in acion hotspots or buttons on a navigator to open
other databases on the same server in the same directory. Use the temporary
setting "1" with the FileOpenDatabase to keep the icons from being added to the
workspace.
REM; "Get the name of the Notes server";
SRV := @Subset(@DbName; 1);
REM; "Get the name of the directory that the databases are on";
Dir := @LeftBack(@Subset(@DbName; -1); "\\");
REM; "Use the Dir variable and add the name of the database to be opened ";
path := Dir + "\\" + "DBName.nsf";
REM; "Open the desired database with a temporary setting so the DB icon is not
added to the workspace";
@Command([FileOpenDatabase]; SRV:path; "";"";"";"1");
REM; "Close the database that you start from";
@Do(@Command([FileOpenDatabase]; @DbName;
"";"";"";"1");@Command([FileCloseWindow]))
This was first published in November 2000