ordner erstellen

[herkules]

hallo!
ordner müssen immer wieder erstellt werden. aber will sich schon die syntax merken...

--*****************
-- Ordner erstellen
--*****************

-- Aufruf
|FolderCreate|("Ordner-Name", 3, true, "Ziel:Pfad:")

-- Ordner erstellen
--*****************
on |FolderCreate|(Input, Ansicht, Oeffnen, Ziel)

-- Ordner erstellen
tell application "Finder"

-- Output Initialisieren
set Output to true

try
-- Ordner erstellen
set NeuerOrdner to make new folder at folder Ziel
set the name of NeuerOrdner to Input

-- Ansicht aendern
if Ansicht = 1 then
-- Ordner-Ansicht aendern auf Symbole
set view of container window of folder (Ziel & Input) to icon
else if Ansicht = 2 then
-- Ordner-Ansicht aendern auf Tasten
set view of container window of folder (Ziel & Input) to large button
else
-- Ordner-Ansicht aendern auf Liste
set view of container window of folder (Ziel & Input) to name
end if

-- Ordner oeffnen
if Oeffnen then
open folder (Ziel & Input)
end if

on error
set Output to false
end try

-- Wert zurueckgeben
return Output

end tell

end |FolderCreate|
_________________
gruss christos;-)

[Albert]