// Определим текущего пользователя !PerfUserName = !Sender.Application.Connection.UserName //логин //Найдем папку избранное !FolderFactory = !Sender.Application.FolderFactory !RF = !Sender.Application.FolderFactory.RootFolders //вход !RF.Next //исход !RF.Next //избранное !RFInfo = !RF.Value //*** !Fld = !FolderFactory.CreateNew(ckEDocument) !Fld.DataSet.Requisites('Name').Value = 'USERS for admin '& !PerfUserName !Fld.DataSet.ApplyUpdates !FldInfo = !Fld.info //**** Users **** !FolderFactory.PasteToFolder(!RFInfo; !FldInfo) //***------**** !i = 0 !Индикатор=ИндикаторОткрыть('Подождите, пожалуйста'; 120;1;'Да') //Пройдем по всем пользователям !Users = CreateReference('ПОЛ') !Users.DataSet.Open() !Users.DataSet.First() while not !Users.DataSet.EOF !Sostojnie = !Users.DataSet.Requisites('Состояние').AsString if !Sostojnie == 'Действующая' !FIO = '' !Login = '' !Name = '' !КодПользователя = '' !VxodInfo = nil !IsxodInfo = nil !Izbran = nil !FldUserInfo = nil !FIO = !Users.DataSet.Requisites('Дополнение3').AsString !Login = !Users.DataSet.Requisites('Дополнение').AsString !KodPolz = !Users.DataSet.Requisites('Код').AsString !Name = !FIO&' ('& !Login& ') ' //Создаем папку пользователя !FldUser = !FolderFactory.CreateNew(ckEDocument) !FldUser.DataSet.Requisites('Name').Value = !Name !FldUser.DataSet.ApplyUpdates !FldUserInfo = !FldUser.info //*******ФИО !FolderFactory.PasteToFolder(!FldInfo; !FldUserInfo) //Находим папки !VxodInfo = ПоискПапки('Входящие'; !KodPolz) !IsxodInfo = ПоискПапки('Исходящие'; !KodPolz) !Izbran = ПоискПапки('Избранное'; !KodPolz) //копируем ссылки if not VarIsClear(!VxodInfo) !FolderFactory.PasteToFolder(!FldUserInfo; !VxodInfo) endif if not VarIsClear(!IsxodInfo) !FolderFactory.PasteToFolder(!FldUserInfo; !IsxodInfo) endif if not VarIsClear(!Izbran) !FolderFactory.PasteToFolder(!FldUserInfo; !Izbran) endif ИндикаторШаг(!Индикатор) !i = !i + 1 endif // !Sostojnie == 'Действующая' !Users.DataSet.Next() endwhile !Users.DataSet.Close() ИндикаторЗакрыть(!Индикатор) ShowMessage('Выполнено! ('& !i& ' пользователей)')