Script: Ordner aus Ansicht entfernen

Inhalt

Dieses Script entfernt für eine Benutzergruppe einen Root-Ordner aus der Ansicht. Wenn Mitglieder dieser Benutzergruppe sich einloggen, erscheint der Ordner nicht mehr in der Aufstellung der Ordner.

Wenn Sie statt dessen einen Ordner zur Ansicht freigeben wollen, benutzen Sie das Script Ordner einer Benutzergruppe zur Ansicht anfügen.

Version

VersionBeschreibungScript
ab Version 5.0
verwendet die Variablen vertec und argobject RemoveOrdnerFromGruppe.txt
ab Version 5.8
Verwendet anstelle der VB Standardfunktionen die Vertec-Funktionen msgbox und inputbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter). RemoveOrdnerFromGruppe58.txt

Ausführen

Auf der Benutzergruppe, der der Ordner zur Ansicht entzogen werden soll.

Scripttext

'---Bezeichnung: Ordner aus Ansicht entfernen
'   Klasse: Benutzergruppe
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'---Dieses Script entfernt für eine Benutzergruppe
'   einen Root-Ordner aus der Ansicht.
'---14.05.2007, Vertec AG: erstellt.
'---12.07.2013, MR, Vertec AG: dim ordname eingefügt.
'---29.10.2013, sr: msgbox und inputbox auf vertec aufrufen.

Option Explicit

Dim gruppe
Dim ordnerlist
Dim ord
Dim ordname

Set gruppe = Vertec.ArgObject
If gruppe.isOfType("BenutzerGruppe") Then
ordname = Vertec.InputBox("Vertec","Geben Sie den Namen für den Ordner an","")
Set ordnerlist = Vertec.Eval("ordner->select(bezeichnung='" & ordname & "')")
If ordnerlist.Count <> 1 Then
Vertec.MsgBox "Es wurden entweder keine oder mehrere Ordner mit der angegebenen Bezeichnung gefunden. Der Vorgang wird abgebrochen.",,"Vertec"
Else
Set ord = ordnerlist.objects(0)
gruppe.member("persrooteintraege").Remove ord
End If
Else
Vertec.MsgBox "Dieses Script muss auf einer Benutzergruppe ausgeführt werden.",,"Vertec"
End If


14.08.2006 | 29.10.2013: msgbox und inputbox durch vertec.msgbox und vertec.inputbox ersetzt.
Produktlinien: Expert
Module: Leistung & CRM