Alle Ordner bis auf ein paar bestimmte verschieben

[kamp]

Halllo Forum,

habe ein Problem (für euch wahrscheinlich keines) mit dem Verschieben von Ordnern.

Ich möchte alle Ordner eines Unterordner verschieben bis auf ein paar bestimmte, die dort liegenbleiben müssen.

Leider funktioniert mein Script nicht richtig. Es kopiert mir im Moment alles; auch die, die in der Ausnahmeliste stehen.

Kann mir jemand einen Tipp geben?!?

Danke.

set x to "Anzeiges:import:" as alias
set ausnahmeliste to {"rseiten", "Notes", "farbdrucker", "_Geprüft", "Wiederholer"} as text

tell application "Finder"
set y to every item of x whose modification date < (current date) - 60 * days

repeat with i from 1 to number of items in y

set this_item to item i of y
if name of this_item is not in ausnahmeliste then
duplicate y to "Logos:Muell:"
else

end if

end repeat
end tell

[Snow]

Hallo kamp,

du prüfst zwar, ob das jeweilige Objekt in der Ausnahmeliste vorkommt, duplizierst aber dann die gesamte Liste.

[kamp]

Hallo Snow,

danke für Deinen Tipp.

War ja ganz einfach; habe wohl zu lange vor dem Rechner gesessen und vor lauter Bäumen keinen Wald mehr gesehen. - - Vielen Dank.

Den duplicate-Befehl benutze ich solange, bis meine Scripte richtig funktionieren. Dann stelle ich das Script "scharf".

Einen guten Rusch in 2005 wünscht Euch

Christian