Script: Subordner in neuen Subordner verschieben

Inhalt

Es wird im aktuellen Ordner ein Subordner erzeugt. Alle andern Subordner, die sich im aktuellen Ordner befinden, werden in diesen neuen Subordner verschoben.

Den Namen des Subordners können Sie in einem Dialog angeben.

Version

VersionBeschreibungScript
Versionen vor 5.8

InsertSubordner.txt
ab Version 5.8
Verwendet anstelle der VB Standardfunktion die Vertec-Funktionen msgbox und inputbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) InsertSubordner58.txt

Ausführen

Auf dem Ordner, in dem der Subordner erzeugt und dessen Subordner in den neuen Ordner verschoben werden sollen.

Scripttext

'---Bezeichnung: Subordner in neuen Subordner verschieben
'   Klasse: Ordner
'   ObjectScript: Yes
'   ContainerScript: Yes
'   EventType: Kein
'---Es wird im aktuellen Ordner ein neuer Unterordner erzeugt.
'   Alle andern Subordner, die sich im aktuellen Ordner  
'   befinden, werden in diesen neuen Subordner verschoben.
'   Den Namen des Subordners können Sie in einem Dialog angeben.
'---12.02.2004, Vertec AG: erstellt.
'---07.05.2007, sc: Vertec und Argobject ergänzt.
'---02.06.2008, sr: Argobject wird auf "Ordner" überprüft.
'---29.10.2013, sr: msgbox und inputbox werden neu auf vertec aufgerufen.

option explicit

dim ordner
dim subList
dim ordnerNeu
dim i

set ordner = Vertec.argobject
if ordner.IsOfType("Ordner") then
set ordnerNeu = Vertec.CreateObject("Ordner")

ordnerNeu.member("bezeichnung") = Vertec.InputBox ("Vertec","Bitte geben Sie den Namen des neuen Subordners an.","Subordner")
set subList = ordner.member("subordner")
for i=sublist.count-1 to 0 step -1
set sublist.objects(i).member("parentordner") = ordnerNeu
next
set ordnerNeu.Member("parentordner") = ordner
else
vertec.msgbox "Dieses Script muss auf einem Ordner ausgeführt werden",16,"Vertec"
end if


12.02.2004 | 29.10.2013: msgbox und inputbox durch vertec.msgbox und vertec.inputbox ersetzt.