Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

ordnerstruktur erstellen

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Classic-Snippets
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
herkules
•-->
•-->


Anmeldedatum: 05.01.2004
Beiträge: 23
Wohnort: wädenswil - schweiz

BeitragVerfasst am: 30.11.2004 - 11:25    Titel: ordnerstruktur erstellen Antworten mit Zitat

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 Wink).

--*************************
-- 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;-)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Javarhsi
•->
•->


Anmeldedatum: 18.05.2015
Beiträge: 2

BeitragVerfasst am: 18.05.2015 - 13:50    Titel: Antworten mit Zitat

This knowledge led me to publish it.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Classic-Snippets Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter