Script: Ordner in einen Ordner der gleichen Ebene verschieben

Inhalt

Verschiebt einen Ordner in einen anderen Ordner auf der gleichen Ebene. Er erscheint dann als Unterordner dieses anderen Ordners. Alle Unterordner bzw. Einträge des Ordners werden ebenfalls verschoben.

Der andere Ordner kann über eine Abfrage angegeben werden.

Version

VersionBeschreibungScript
Versionen vor 5.8 MoveOrdnerInLevel.txt
ab Version 5.8 Verwendet anstelle der VB Standardfunktion die Vertec-Funktion msgbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) MoveOrdnerInLevel58.txt

Ausführen

Auf dem Ordner, der verschoben werden soll

Scripttext

'---Bezeichnung: Ordner verschieben (gleiche Ebene)
'   Klassen: Eintrag
'   ObjectScript: No
'   ContainerScript: Yes
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Verschiebt einen Ordner in einen anderen Ordner auf der gleichen
'   Ebene. Er erscheint dann als Unterordner dieses anderen Ordners.
'   Alle Unterordner bzw. Einträge des Ordners werden ebenfalls verschoben.
'---17.02.2004, Vertec AG: erstellt.
'---20.04.2009, sr: Header eingefügt.
'---29.10.2013, sr: msgbox und inputbox werden neu auf vertec aufgerufen.

option explicit

dim ordner
dim parent
dim parentlist
dim parentname
dim i

set ordner = Vertec.argobject
if not ordner.IsOfType("Abstractordner") then
Vertec.msgbox "Dieses Script kann nur auf einem Ordner durchgeführt werden.",16,"Vertec"
else
parentname = Vertec.Inputbox("Vertec", "Geben Sie den Namen des Ordners an, in der Ordner verschoben werden soll","")
set parentlist = ordner.eval("parentordner.subordner")
set parent = nothing

for i=0 to parentlist.count-1
if parentlist.objects(i).asstring = parentname then
set parent = parentlist.objects(i)
exit for
end if
next

if not parent is nothing then
'verschieben
ordner.member("parentordner") = parent
else
Vertec.msgbox "Der angegebene Ordner wurde nicht gefunden.",16,"Vertec"
end if
end if


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