Några osammanhängande snuttar som jag plockat ut ert av mina script hittar du nedan.
Det var skrivet för URL Access Scripting i Mac OS 9, har inte testat för OS X.
Dels så hittar du en snutt för att skapa en mapp med dagens datum, om den inte redan finns. Sedan följer en snutt som kollar om det finns en fil som heter 1.html, om inte så skapas den.
Hoppas att du kan få ut något vettigt av dessa exempel:
(*
Först kollar vi om det finns en mapp som heter Dagens aktiva på skrivbordet, om inte
skapas den.
*)
tell application "Finder"
if (folder "Dagens Aktiva" of desktop exists) is not true then
set the DailyFolder to make new folder at desktop ¬
with properties {name:"Dagens Aktiva", comment:"Innehåller Dagens aktiva diskussioner på 99mac.com"}
else
set DailyFolder to "Macintosh HD:Desktop Folder:Dagens Aktiva:"
set DailyFolder to item DailyFolder as alias
end if
(*
Dags att skapa ett namn på mappen utifrån dagens datum
Först tar vi fram månaden i form av en siffra, om den är mindre än 10 så skall vi lägga
till en nolla framför. Detsamma gäller dagen.
Sedan sätter vi ihop detta till ett namn på en mapp och om den inte finns skapar vi den.
*)
set toDay to current date
set DailyMonth to month of toDay -- Returnerar engelsk månad!
(*set monthsOfTheYear to {"Januari", "Februari", "Mars", "April", "Maj", "Juni", ¬
"Juli", "Augusti", "September", "Oktober", "November", "December"}
*)
set monthsOfTheYear to {"January", "February", "March", "April", "May", "June", ¬
"July", "August", "September", "October", "November", "December"}
set monthnr to 0
repeat with monthName in monthsOfTheYear
set monthnr to monthnr + 1
if (DailyMonth as text) = (monthName as text) then
exit repeat
end if
end repeat
if monthnr < 10 then
set monthnr to "0" & (monthnr as text)
end if
set daynumber to day of toDay
if daynumber < 10 then
set daynumber to "0" & (daynumber as text)
end if
set DailyDate to (year of toDay & "-" & (monthnr as text) & "-" & daynumber) as string
set destination to (DailyFolder as string) & (DailyDate as string)
(*
Kolla om den mappen finns, om inte, skapa den.
*)
if exists (folder destination) then
set destination to item destination as alias
else
make new folder at DailyFolder with properties {name:(DailyDate as string)}
set destination to result
end if
Nästa snutt:
(*
Vi behöver även skapa en fil som vi kan ladda in sidan i, 1.html
Tydligen är det noga med att ange "as file specification".
*)
set filespec to "1.html"
set filespec to (destination as string) & filespec
if exists (file filespec) then
set filespec to item filespec as file specification
else
make new file at destination ¬
with properties {name:"1.html", creator type:"MSIE", file type:"TEXT"}
set filespec to result as file specification
end if
/Ola