Vassego!
(*
ADD PREFIX TO FILENAMES
----------------------------------------------------------------
Av: Intelligent Mammals AB, 2003-08-08
© Ola@intelligentmammals.se
http://www.intelligentmammals.se/
Detta manus duplicerar filer och lägger till ett prefix till filnamnet.
Användaren får välja en mapp som innehåller de filer som skall döpas om, manuset
"traverserar" sedan filstrukturen och går alltså in och gör samma sak i alla
undermappar i den mapp som användaren har valt. Detta går förstås att stänga av.
Alternativen duplicate och rename betyder att filerna dupliceras respektive
endast döps om utan att dupliceras.
Alternativen walk och stay betyder att scriptet går "ner" i alla mapper i den mapp
användaren har valt och gör samma sak där respektive att scriptet stannar i den
mapp användaren har valt.
*)
on run
global fileprefix
global copyflag
global folderwalk
set fileprefix to "viktigt."
set copyflag to "rename" -- alternativen är "duplicate" och"rename"
set folderwalk to "stay" -- alternativen "walk" och "stay"
set itemcounter to 0
choose folder with prompt "Vilken mapp innehåller filerna du vill lägga till prexix i filnamnen?"
set theFolderToParse to the result
parseFolder(theFolderToParse)
end run
on parseFiles(fileList)
global fileprefix
global copyflag
global folderwalk
tell application "Finder"
repeat with listItems in fileList
if kind of listItems is "mapp" then
if folderwalk is "walk" then -- Kolla om undermappar skall processas.
set theFolderToParse to listItems
parseFolder(theFolderToParse) of me
end if
else
if copyflag is "duplicate" then -- Skall vi duplicera och döpa om?
-- Ja
set oldname to name of listItems
duplicate listItems
set newfile to result
set the name of newfile to fileprefix & oldname
else
-- Nej, vi skall bara döpa om
set oldname to name of listItems
set the name of listItems to fileprefix & oldname
end if
end if
end repeat
end tell
end parseFiles
on parseFolder(theFolderToParse)
global itemcounter
tell application "Finder"
set newFileList to the items of theFolderToParse
parseFiles(newFileList) of me
end tell
end parseFolder
/Ola
