//Scriptfunktion 'MCEXT.DIRECTORY'
//Ermöglicht mehrere Funktionen zur Erzeugung, Kopieren und Verschieben von Verzeichnissen.
// HIER BITTE EINEN TESTPFAD EINTRAGEN
HAUPTPFAD="C:\Temp"
TESTPFAD="C:\Temp\TestDir"
NEUERNAME="C:\Temp\TestDirNeu"
ZIELPFAD="C:\Temp\TestDirZiel"
KOPIEPFAD="C:\Temp\TestDirCopy"
MSG=""
// ----------------------------------------------------------
// 0) Nur prüfen ob existiert
// ----------------------------------------------------------
//ERG=MCEXT.DIRECTORY{{TESTPFAD},0,,}
ERG=MCEXT.DIRECTORY{{TESTPFAD},,,}
MSG={MSG}Action 0: {ERG}{RET}
// ----------------------------------------------------------
// 1) Erstellen wenn nicht vorhanden
// ----------------------------------------------------------
ERG=MCEXT.DIRECTORY{{TESTPFAD},1,,}
MSG={MSG}Action 1: {ERG}{RET}
// ----------------------------------------------------------
// 6) Prüfen ob leer
// ----------------------------------------------------------
ERG=MCEXT.DIRECTORY{{TESTPFAD},6,,}
MSG={MSG}Action 6 (leer?): {ERG}{RET}
// ----------------------------------------------------------
// 2) Umbenennen
// Option1 =" neuer Pfad"
// ----------------------------------------------------------
ERG=MCEXT.DIRECTORY{{TESTPFAD},2,{NEUERNAME},}
MSG={MSG}Action 2 (umbenennen): {ERG}{RET}
// ----------------------------------------------------------
// 3) Verschieben
// Option1 =" Ziel"
// Option2 =" True/False (überschreiben)"
// ----------------------------------------------------------
ERG=MCEXT.DIRECTORY{{NEUERNAME},3,{ZIELPFAD},true}
MSG={MSG}Action 3 (verschieben): {ERG}{RET}
// ----------------------------------------------------------
// 4) Kopieren
// Option1 =" Zielordner"
// Option2 =" True/False (rekursiv)"
// ----------------------------------------------------------
ERG=MCEXT.DIRECTORY{{ZIELPFAD},4,{KOPIEPFAD},true}
MSG={MSG}Action 4 (kopieren): {ERG}{RET}
// ----------------------------------------------------------
// 5) Leeren des Zielordners
// ----------------------------------------------------------
ERG=MCEXT.DIRECTORY{{KOPIEPFAD},5,,}
MSG={MSG}Action 5 (leeren): {ERG}{RET}
// ----------------------------------------------------------
// 9) Löschen eines Ordners
// ----------------------------------------------------------
ERG=MCEXT.DIRECTORY{{KOPIEPFAD},9,,}
MSG={MSG}Action 9 (loeschen): {ERG}{RET}
DLG=DLGMESSAGE{{MSG}}
// Fertig
FRAGE=DLGQUESTION{Testlauf beendet. Alle Testordner wieder löschen?}
IFBLOCK{FRAGE=0}
EXIT=EXITSCRIPT{}
ENDIF
//Testordner wieder löschen
ERG=MCEXT.DIRECTORY{{TESTPFAD},9,,}
ERG=MCEXT.DIRECTORY{{NEUERNAME},9,,}
ERG=MCEXT.DIRECTORY{{ZIELPFAD},9,,}
ERG=MCEXT.DIRECTORY{{KOPIEPFAD},9,,}
ERG=MCEXT.DIRECTORY{{HAUPTPFAD},6,,}
IFBLOCK{ERG=EMPTY}
ERG=MCEXT.DIRECTORY{{HAUPTPFAD},9,,}
ENDIF
DLG=DLGMESSAGE{erledigt ;-)}
EXIT=EXITSCRIPT{}
