herkules
•-->
Anmeldedatum: 05.01.2004
Beiträge: 23
Wohnort: wädenswil - schweiz
|
 Verfasst am: 30.11.2004 - 11:25 Titel: ordnerstruktur erstellen |
 |
|
hallo zusammen!
hier noch eine lösung, wie eine ganze ordnerstruktur erstellt werden kann (benötigt die routinen "|Trimmen|", "|ListeErstellen|", "|FolderExists|" und "|FolderCreate|", auch in den classic-snippets vorhanden  ).
--*************************
-- Ordnerstruktur erstellen
--*************************
-- Aufruf
set Var to |FolderCreateIterativ|("Mac XY:Desktop Folder:Ordner1:Ordner2:", 3)
-- Ordnern mit Unterordner erstellen
--**********************************
on |FolderCreateIterativ|(Input, Ansicht)
-- Initialisierungen
set Output to true
set dp to ":"
-- Input trimmen und Liste erstellen
set InputListe to |Trimmen|(Input, "r", dp)
set InputListe to |ListeErstellen|(InputListe, dp)
-- wenn etwas in Liste vorhanden, abarbeiten
if (length of InputListe) is not 0 then
-- erster Ordner angeben
set OrdnerPfad to ((item 1 of InputListe) & dp) as string
-- Liste abarbeiten
repeat with n from 2 to (length of InputListe)
-- Ordner uebergeben
set Ordner to ((item n of InputListe) & dp) as string
-- Ordner erstellen, wenn nicht schon existiert
if not |FolderExists|((OrdnerPfad & Ordner) as string, false) then
|FolderCreate|(Ordner, Ansicht, false, OrdnerPfad)
end if
-- neuer Pfad setzen
set OrdnerPfad to (OrdnerPfad & Ordner) as string
end repeat
end if
-- pruefen, ob Ordner erstellt wurde
if not |FolderExists|(Input, false) then
set Output to false
end if
-- Wert zurueckgeben
return Output
end |FolderCreateIterativ|
_________________
gruss christos;-) |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
