Hallo Farbenhuhn,
hier eine Variante [#cc0000]ohne Dialoge[/#cc0000]. :-)
Den Code als Programm speichern. Das ergibt ein Droplet (im Icon ist ein Pfeil zu erkennen), welches ins Dock gezogen werden kann.
Die csv-Datei in den Ordner legen, in welchem die Ordner erzeugt werden sollen. Und dann dieselbe Datei auf das Droplet ziehen.
on open oneObject
set csvFile to item 1 of oneObject as Unicode text
tell application "Finder" to set folPath to container of file csvFile
set folNames to (paragraphs 2 thru -1 of (read file csvFile))
repeat with i from 1 to count folNames
tell application "Finder"
try
make new folder at folPath with properties {name:item i of folNames}
end try
end tell
end repeat
end open
Es kann auch eine normale Textdatei verwendet werden. In diesem Fall muss im Script in der Zeile ...
set folNames to (paragraphs 2 thru -1 of (read file csvFile))
... die 2 durch eine 1 ersetzt werden. Oder in der Textdatei mit einer Dummy-Zeile beginnen.
Gruss, Hans
