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

ordnerstruktur erstellen

 
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    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
jiuer7845
•---->
•---->


Anmeldedatum: 06.04.2021
Beiträge: 521

BeitragVerfasst am: 09.10.2021 - 10:18    Titel: Antworten mit Zitat

Travis Scott Jordan 1

Yeezy Shoes

Yeezy Supply

Air Jordans

Jordan 11s

Jordan 11

Jordans Shoes

Retro Jordans

Moncler Jackets

Nike Air Jordan

Moncler Outlet

Off-White

Yeezy 450

Yeezy 500

Yeezy

Yeezy 700

Yeezy Supply

Off White Shoes

NFL Jerseys

Jordan Shoes

Jordans Shoes

Yeezy 350 V2

Adidas Yeezy

Yeezy

Yeezy 700

Yeezy

Nike Outlet

Yeezy Shoes

UNC Jordan 1

Jordan 13

Jordan AJ 1

Yeezy Foam Runner

Nike Outlet

Nike Outlet

AJ1

Yeezy Supply

Yeezy Zebra

Jordan 1 Low

Air Jordans

Pandora Charms

Adidas UK

Nike Store

Adidas Yeezy Official Website

Yeezy 350

Jordan 1

Nike Outlet

YEEZY SUPPLY

Pandora Charms

Nike Shoes

Nike Outlet

Pandora Outlet

Jordan Shoes

Air Jordan 4

Pandora Jewelry

Pandora Rings

Pandora Bracelets

Adidas Yeezy

Yeezy

Pandora Charms

Nike Outlet

Adidas Yeezy

Air Max 720

Nike Air Max 270

Air Jordan 11

Air Force 1

Air Jordan 1

Nike Jordans

Jordan 1s

Pandora UK

Nike Jordan 1

Jordan 1

Yeezy Slides

Nike Air VaporMax

Nike Vapormax Flyknit

Air Jordan 1 Mid

Adidas yeezy

Yeezy Shoes

Adidas Yeezy

Yeezy 350

Nike Shoes

Nike Outlet

Yeezy

NFL Shop Official Online Store

Nike UK

Yeezy

Yeezy 350
_________________
https://www.pandoras-jewelry.com/ Pandora Jewelry
https://www.pandoraoutlet.org/ Pandora Outlet
https://www.jordanshoess.com/ Jordan Shoes
https://www.air-jordan4.com/ Air Jordan 4
https://www.charms-pandora.com/ Pandora Charms
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen AIM-Name
Albert
•->
•->


Anmeldedatum: 07.01.2022
Beiträge: 7
Wohnort: Berlin

BeitragVerfasst am: 10.01.2022 - 15:00    Titel: Antworten mit Zitat

Neutral
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    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