Ярлыки в Workspace

  • Автор темы Ogion7
  • Дата начала
O

Ogion7

#1
Доброго времени суток.
Задача поставлена следующим образом:
На рабочем столе Lotus Notes во всех ярлыках, где имя сервера в пути к БД такое же как <Старое имя сервера> изменить его на <Новое имя сервера>.
Куда копать?
 
O

Ogion7

#3
букмаки я смотрел, там в помине нету столько документов в представлениях, сколько у меня ярлыков в рабочей области. Смотрел также desktop6.ndk -- тоже ничего
 
O

Ogion7

#4
Есть в bookmark.nsf вьюха (ByURL). В ее документах есть поля где храняться реплики и пути к базам, а ткже сервера на которых лежат. Поменял один док кодом но значок в воркспейсе не изменился даже после перзагрузки лотуса
 

Kee_Keekkenen

Well-known member
05.09.2006
639
4
#6
замороченная эта тема.. как создавать программно ярлыки я знаю, а как удалять нет..
 
O

Ogion7

#8
Что-то похожее
http://www-10.lotus.com/ldd/nd6forum.nsf/5...525731a0053478c

We have a database that has a replica on 100+ servers. It is being consolidated to exist on one of three regional servers.
So, we needed an email button to send to users that would allow them to pick one of the three regional servers, and then
needed to remove/replace any/all database icons pointing to that replica with the new selected, regional server. We could
not find any code in the forum to assist us when we first looked at this requirement, so I am posting it here for others to
use. Following is the code that does the actual updating of the user's desktop icons. You will have to add code, if you want to
allow the user to select a server from a list, and to allow for users that have no icon at all pointing to a replica of the database.
Keep in mind that the user will be prompted for a "Yes/No" answer when the FileDatabaseRemove is executed.

Код:
vNewServerLocation := "Replace this with the New Server location the user selected"; 
vRepID := "48256B47002F1DC4"; 

vIconList := @DbLookup("":"ReCache";"":"bookmark.nsf";"(ByURL)";"Notes:///" + vRepID;"$ReplicaFilePaths"); 

vCount := @Elements(vIconList); 

@For(n := 1; n < vCount; n := n + 1; 
@Command( [AddDatabase]; @Left(vIconList[n];"!!") :@Right(vIconList[n];"!!") ); 
@Command([WindowWorkspace]);
@Command( [FileDatabaseRemove] )
);

@Command([RenameDatabase];@Left(vIconList[vCount];"!!") :@Right(vIconList[vCount];"!!"); vNewServerLocation)
 
O

Ogion7

#9
Прекрасно работает, если нужно поменять один ярлык. Для нескольких у меня не получилось сделать(брал список баз из букмарка, и в цыкле вызывал @Command([RenameDatabase]...)). Меняет только один