Script: Ordner verschieben

Inhalt

Ändert den Überordner (Parentordner) des aktuellen Ordners. Der Ordner wird also in einen anderen Ordner verschoben.

Version

VersionBeschreibungScript
Versionen vor 5.8 ChangeParentordner.txt
ab Version 5.8 Verwendet anstelle der VB Standardfunktionen die Vertec-Funktion msgbox und inputbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) ChangeParentordner58.txt

Ausführen

Auf dem zu verschiebenden Ordner.

Der neue Parentordner muss über den Namen angegeben werden. Der Name muss nicht zwingend die Bezeichnung sein, die auf der Oberfläche erscheint. Sie können den Namen einsehen, indem Sie auf dem Ordner mit rechter Maustaste System > Eigenschaften anwählen. Im Feld Bezeichnung befindet sich der Name:

Scripttext

'---Bezeichnung: Ordner verschieben
'   Klassen: Eintrag
'   ObjectScript: No
'   ContainerScript: Yes
'   EventType: Kein
'---Ändert den Parentordner eines bestimmten Ordners.
'   Der Ordner wird so in einen anderen Ordner verschoben.
'   Der neue Parenordner muss über den Namen angegeben
'   werden. Der Name muss nicht zwingend die Bezeichnung
'   sein, die auf der Oberfläche erscheint. Sie können den
'   Namen einsehen, indem Sie auf dem Ordner mit rechter
'   Maustaste System > Eigenschaften anwählen. Im Feld
'   Bezeichnung befindet sich der Name.
'---03.02.2004, Vertec AG: erstellt.
'---07.05.2007, cp: Vertec und argobject angepasst.
'---25.10.2013, sr: msgbox und inputbox auf vertec aufrufen.

option explicit

dim ordner
dim ordnerlist
dim parentname

set ordner = Vertec.argobject
if not ordner.isOfType("AbstractOrdner") then
vertec.Msgbox("Sie können dieses Skript nur auf "_
&"einem Ordner ausführen")
else
'neuen Parentordner bestimmen
parentname = Vertec.InputBox("Vertec","Geben Sie den Namen "_
&"des neuen Parentordners an","")
set ordnerlist = Vertec.eval("ordner->select(bezeichnung='"_
+parentname+"')")
if ordnerlist.count <> 1 then
vertec.msgbox("Es wurden keine oder mehrere Ordner "_
& "mit diesem Namen gefunden. Die Zuordnung "_
& "kann nicht vorgenommen werden.")
else
ordner.member("parentordner") = ordnerlist.objects(0)
end if
end if

03.02.2004 | 25.10.2013: msgbox und inputbox durch vertec.msgbox und vertec.inputbox ersetzt.
Produktlinien: Standard, Expert
Module: Leistung & CRM