[GastForen Programmierung/Entwicklung AppleScript Per Script neuen Ordner anlegen und darin eine leere Textdatei

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

Per Script neuen Ordner anlegen und darin eine leere Textdatei

christiandigital
Beiträge gesamt: 489

27. Jul 2015, 13:05
Beitrag # 1 von 3
Bewertung:
(1682 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo zusammen,

ich bin nicht unbedingt der grosse Scripter und benötige daher etwas Hilfe.

Ich habe folgendes Applescript gestrickt:
Es wird ein neuer Ordner erzeugt (Über den Dialog vergebe ich dessen Name) und wähle den Pfad aus.
In diesem Ordner werden definierte Unterordner angelegt.
Innerhalb dieser Hierarchie möchte ich per Applescript noch ein leeres Textdokument mit ebenfalls fix definiertem Namen ("Notizen.txt") anlegen.

Soweit passt das auch, nur erzeugt mein Script das leere Dokument auf dem Desktop und nicht im neu erzeugten Ordner...
Ich vermute, dass ich den Pfad zum Ordner angeben muss, weiss aber nicht genau wie.

Danke schon mal jetzt für eure Hilfe!

Mein Script sieht folgendermassen aus:


property unterOrdner : {"1_Office", "2_Arbeit", "3_Produktion", "4_Vorlagen"}
property unterOrdner1 : {"Bilder", "HQ-PDF", "SQ-PDF"} -- in Ordner "3_Produktion"


(display dialog "Neues Projekt anlegen" & return & "" & return & "Dieser Schritt kann nicht rückgängig gemacht werden!" & return & "" buttons {"Projekt anlegen", "Eingabe Abbrechen"} default button 1 with icon 0 with title "Christian)


set DlogResult to result

if the button returned of the result is "Eingabe Abbrechen" then
quit me
-- Komplettabbruch und Beenden.

else if the button returned of the result is "Projekt anlegen" then

-- Die Ordneraktion wird ausgeführt.

set AuftrBez to text returned of (display dialog "Bitte Projektname eingeben:" & return & "" default answer "" buttons {"Anlegen"} default button 1 with icon 0 with title "Chrisitan")

set ZielOrdner to choose folder
tell application "Finder"
if AuftrBez is "" then
beep 3
display dialog "Kein Projektname eingegeben" & return & "Es wird kein neues Projekt erstellt."
set AuftrOrdner to (make new folder at desktop)
else
if not (exists folder AuftrBez of ZielOrdner) then
set AuftrOrdner to (make new folder at ZielOrdner with properties {name:AuftrBez})
else
set AuftrOrdner to (folder AuftrBez of ZielOrdner)
end if
end if

repeat with newFolder in unterOrdner
try
make new folder at AuftrOrdner with properties {name:newFolder}
end try
end repeat
open AuftrOrdner
set current view of window of AuftrOrdner to list view

set Pfad to (path to "desk" as string) & "Notizen.txt"
set dRef to open for access file Pfad
close access dRef

end tell

end if
______________________________

Mit freundlichen Grüßen,
Christian Kurz

www.koenigreich.com

Alles wird gut.
______________________________
X

Per Script neuen Ordner anlegen und darin eine leere Textdatei

Hans Haesler
  
Beiträge gesamt: 5805

27. Jul 2015, 16:21
Beitrag # 2 von 3
Beitrag ID: #541527
Bewertung: |||
(1632 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Christian,

soll die Textdatei nur einmal angelegt werden? Im Zielordner?
Dann sollte es so klappen:

Code
property unterOrdner : {"1_Office", "2_Arbeit", "3_Produktion", "4_Vorlagen"} 
property unterOrdner1 : {"Bilder", "HQ-PDF", "SQ-PDF"} -- in Ordner "3_Produktion"

set DlogResult to button returned of (display dialog "Neues Projekt anlegen" & return ¬
& "" & return & "Dieser Schritt kann nicht rückgängig gemacht werden!" & return ¬
& "" buttons {"Projekt anlegen", "Eingabe Abbrechen"} default button 1 with icon 0 with title "Christian")

if DlogResult is "Eingabe Abbrechen" then
-- Abbruch der Aktion.
error number -128
else if DlogResult is "Projekt anlegen" then
-- Die Aktion wird ausgeführt.
set AuftrBez to text returned of (display dialog "Bitte Projektname eingeben:" & return ¬
& "" default answer "" buttons {"Anlegen"} default button 1 with icon 0 with title "Christian")

set ZielOrdner to choose folder

tell application "Finder"
if AuftrBez is "" then
beep 3
display dialog "Kein Projektname eingegeben" & return & "Es wird kein neues Projekt erstellt."
set AuftrOrdner to (make new folder at desktop)
else
if not (exists folder AuftrBez of ZielOrdner) then
set AuftrOrdner to (make new folder at ZielOrdner with properties {name:AuftrBez})
else
set AuftrOrdner to (folder AuftrBez of ZielOrdner)
end if
end if

repeat with newFolder in unterOrdner
try
make new folder at AuftrOrdner with properties {name:newFolder}
end try
end repeat
open AuftrOrdner
set current view of window of AuftrOrdner to list view

set Pfad to (AuftrOrdner as string) & "Notizen.txt"
set dRef to open for access file Pfad
close access dRef
end tell
end if

Die Sache mit dem 'button returned' ist etwas direkter gestaltet.
Anstelle des 'quit me' wird mit 'error number -128' nur die Ausführung beendet.
Das Erzeugen der Ordner sollte nicht als "Ordneraktion" bezeichnet werden.
Das ist der Ausdruck für etwas ganz anderes.

Fragen: Was ist mit den Unterordnern "Bilder", "HQ-PDF" und "SQ-PDF"?
Sollen diese auch angelegt werden?

Gruss, Hans


als Antwort auf: [#541524]

Per Script neuen Ordner anlegen und darin eine leere Textdatei

christiandigital
Beiträge gesamt: 489

28. Jul 2015, 06:24
Beitrag # 3 von 3
Beitrag ID: #541533
Bewertung:
(1580 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

herzlichen lieben Dank für Deinen Support!
Problem gelöst, das Script läuft bei mir ganz wunderbar!
______________________________

Mit freundlichen Grüßen,
Christian Kurz

www.koenigreich.com

Alles wird gut.
______________________________


als Antwort auf: [#541527]

Aktuell

Photoshop / Lightroom
panorama_300

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: CHF 10'500.-
Dauer: 30 Tage (ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
28.07.2021

Zürich, Birol Isik BK Academy / SNF Academy - Online
Mittwoch, 28. Juli 2021, 08.00 - 18.00 Uhr

Webinar

Webseite erstellen mit WordPress Marketingmassnahmen Change Management Digitalisierung Herausforderungen & Chancen Content Publishing

Ja

Organisator: Birol Isik - BK Academy Schweiz / SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT snfa DOT ch

https://www.snfa.ch/pers%C3%B6nlichkeitsentwicklung-coaching