Script: Subordner in neuen Subordner verschieben
Erzeugt einen Subordner und verschiebt alle aktuellen Subordner in diesen
Standard
|Expert
CLOUD ABO
|ON-PREMISES
Leistung & CRM
Budget & Teilprojekt
Fremdkosten
Ressourcenplanung
Business Intelligence
Erzeugt: 12.02.2004
Aktualisiert: 03.03.2017
|
VB Script durch Python Script ersetzt
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
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()