Script: Subordner in neuen Subordner verschieben

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.

Ausführen

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

Script

InsertSubordner.py

Scripttext

# coding: windows-1252
#
#---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.
#---03.03.2017, sr: Script in Python erstellt

def main():
    ordner = argobject
    if ordner.istypeof('Ordner'):
        ordnerneu = vtcapp.createobject('Ordner')
        ordnerneu.bezeichnung = vtcapp.inputbox('Vertec','Geben Sie den Namen des neuen Ordners an','')
        for ord in list(ordner.subordner):
            ord.parentordner = ordnerneu
        ordnerneu.parentordner = ordner
    else:
        vtcapp.msgbox('Dieses Script muss auf einem Ordner ausgeführt werden.')

main()

12.02.2004 | 03.03.2017: VB Script durch Python Script ersetzt