!! Help for a looong script... begin with compare name of files, date...

Question

Hello Everybody, and thank you very much if you can answer to my little problem
So here is the beginning of my script. At the end it will be a script to batch convert Psd files to jpeg in different resolutions, in different folders.
I wanted to understand subtlety some parts of applescript, but I have to say that I failed for this case.
So the part I am looking for is to compare files between two folders, not exactly like syncing.
In the first Folder, psds files.
In the second, Jpgs, wich have been made from the psds, with a 2nd part of the script, batch to jpeg.
I want to compare these files to tell the 2nd script not to batch them to jpeg if they have not been modified.
So the steps I would like to write :
tell applescript to :
1 -
get every files of folder "psd" without invisibles
get only the names of these files without extension
get the modification date of these files
2-
get every files of folder "jpg" without invisibles
get only the names of these files without extension
get the modification date of these files
3- compare the names of the files in psd's and jpg's folders (it's why I didn't want the extension)
if some or all Psds already exist in jpg folder, then
compare the modification dates of these same files
and if these files in psd folder are more recent than in jpeg folder, then
get only these modified files in psd folder, and, also the new ones (not existing in jpg folder).
and --
4 - launch my batchconverttojpg for this result
(at this moment I only want to find steps 1, 2 and 3)
--- It is important for me to do that, because the files in psd's folder will always change, and I can have really big files (like 500 or 800 mo each), and it will be really faster to batch only modified files…
--- Here is the beginning of the script I am writing, but … bug bug bug, I don't find the good way to write that…
set folder1 to "Macintosh HD:Users:Me:Desktop:test batch convert-script:psds" as string
set folder2 to "Macintosh HD:Users:Me:Desktop:test batch convert-script:jpegs:Jpegs" as string
set AppleScript's text item delimiters to ""
tell application "System Events"
set imgsources to every file of folder folder1 whose name does not start with "." and (file type is "psd" or file type is "JPG" or name extension is "psd" or name extension is "jpg")
set imgcibles to every file of folder folder2 whose name does not start with "." and (file type is "psd" or file type is "JPG" or name extension is "psd" or name extension is "jpg")
end tell
--tell application "Finder"
repeat with i from 1 to the count of imgsources without invisibles
set img to (item i of imgsources as alias)
set infosource to info for img
set nameimg1 to name of infosource -- recupere le nom de limage + extension
--set extimg2 to items -1 thru -4 of nameimg2 as text -- recupere l'extension
set nimg1 to items 1 thru -5 of nameimg1 as text -- recupere le nom
set moddateimg1 to modification date of infosource -- recupere la date de modif
repeat with i from 1 to the count of imgcibles without invisibles
set img2 to (item i of imgcibles as list) -- recupere tous les elements du dossier
set infocible to info for img2 -- recupere les infos
set nameimg2 to name of infocible -- recupere le nom de limage de destination
set extimg2 to items -1 thru -4 of nameimg2 as text -- recupere l'extension
set nimg2 to items 1 thru -5 of nameimg2 as text -- recupere le nom
set moddateimg2 to modification date of infocible -- recupere la date de modif
tell application "Finder"
if nimg1 = nimg2 as text then
--set nimg1 to nimg1 as string
--set nimg2 to nimg2 as string
--set name of img2 to folder2 & ":" & nimg2 & "-" & "2" & extimg2 as text
set name of img2 to nimg2 & "-" & "2" & extimg2
-- I am just trying to rename the file at this step.
-- After this, I will compare the dates, and then, batch convert.
end if
end tell
end repeat
end repeat
So if one of you have the good solution It will be a miracle for me
I have to say that if I wrote this script in a simple way like that, it's to be able to understand what I do, or to understand the script after 6 month, without thinking about it…
Thank you very much for your answers
Fred

Answer 1

Ok so there are a lot of things I didn't know about some details… And I see that I will never have succeed to write something like that…
I don't really understand why to "set psdNames to --> {}" this last detail is unknown for me…
And if I understand, the thing I missed is to do a listindex of the items ? it's why I didn't succeed to compare the files ?
Then I though that it could be interesting for you or differents users to see the result. I think it works perfectly now.
Of course, I am not professional in applescript editing, so if you have some comments or modifications, do not hesitate to post them here
Thanks again to Red_Menace !
Fred
Here it is :
(sorry I didnt translate all the notes to English. Just have to know that the script proceed in the folder where it is. If it's not save in the good folder before execute, or save as application in the good folder, then it will proceed in the default folder "applications"... so careful
display dialog " Attention, Le script va créer un dossier psd, et déplacer les fichiers psds ici dans ce nouveau dossier" & return & " Et va ensuite procéder à la création de" & return & " Jpegs dans différents dossiers" buttons {"Ok", "Annuler", "+ d'explications"} default button "OK"
if button returned of the result is "+ d'explications" then
explications()
return
end if
--Application utilisée : adobe photoshop CS3
--Changer la version si besoin dans les lignes ci dessous
--Changer le nom des dossiers ici, sans avoir à changer le reste du script
set nomdossierpsds to "psds"
set psdsFolder to nomdossierpsds
set tempFolderName to "Exports"
set tempfoldername1 to "Jpegs_HD"
set tempfoldername2 to "Jpegs_SD"
--Pour changer la taille des Jpegs SD --
set choixtaille to "1200"
tell application "Finder"
set racine to get folder of (path to me) as Unicode text
set nomprojet to name of folder racine
--if folder psd exists but with different case
if exists folder "psd" in folder racine then
set name of folder "psd" in folder racine to psdsFolder
end if
if exists folder "Psd" in folder racine then
set name of folder "psd" in folder racine to psdsFolder
end if
if exists folder "Psds" in folder racine then
set name of folder "Psds" in folder racine to psdsFolder
end if
--2 -- check si le dossier psd existe, sinon le crée.
if not (exists folder psdsFolder in folder racine) then
make new folder in folder racine with properties {name:psdsFolder}
set psdsFolder to folder psdsFolder in folder racine as alias
open folder psdsFolder
--display dialog "Avant de Continuer, Placer les images dans le dossier Psds" buttons {"Annuler"} default button 1
else
set psdsFolder to folder (racine & "psds") as alias
end if
--if Psd folder didnt exists, then move psd files in
set psds to (files of folder racine whose name extension is "psd")
move psds to folder psdsFolder
--Dossier Jpegs Racine -- outputFolder -- check si present sinon creation
if not (exists folder ((racine as string) & tempFolderName)) then
set outputFolder to make new folder at racine with properties {name:tempFolderName}
else
set outputFolder to folder ((racine as string) & tempFolderName)
end if
--Dossier Jpegs HD -- outputFolder1 pour photoshop -- check si present sinon creation
if not (exists folder (((racine as string) & tempFolderName as string) & ":" & tempfoldername1)) then
set outputFolder1 to make new folder at outputFolder with properties {name:tempfoldername1}
else
set outputFolder1 to folder ((racine as string) & tempFolderName & ":" & tempfoldername1)
end if
set outputFolder1 to outputFolder1 as alias
--Dossier Jpegs SD -- outputFolder2 pour photoshop -- check si present sinon creation
if not (exists folder (((racine as string) & tempFolderName as string) & ":" & tempfoldername2)) then
set outputFolder2 to make new folder at outputFolder with properties {name:tempfoldername2}
else
set outputFolder2 to folder ((racine as string) & tempFolderName & ":" & tempfoldername2)
end if
set outputFolder2 to outputFolder2 as alias
end tell
--recupere le chemin du dossier des psds à procéder
tell application "Finder"
set psdsFolder to folder (racine & nomdossierpsds) as alias
end tell
--1
tell application "Finder" -- get file items from the folders (coerce list items to aliases for use later)
set psdFiles to (files of folder psdsFolder whose name extension is "psd") as alias list
set jpgFiles to (files of folder outputFolder1 whose name extension is "jpg" or name extension is "psd") as alias list
end tell
--2
set psdNames to {} -- get the psd file names (these are in the same order as the file items)
repeat with anItem in psdFiles
set the end of psdNames to (justTheName from anItem)
end repeat
set jpgNames to {} -- get the jpg file names (these are in the same order as the file items)
repeat with anItem in jpgFiles
set the end of jpgNames to (justTheName from anItem)
end repeat
--3
set filesList to {} -- figure out the files to process
repeat with X from 1 to (count psdNames)
set theName to contents of (item X of psdNames) -- get a name from the psd list
if theName is in jpgNames then -- found a jpg match, so check the date
set match to (listIndex of theName from jpgNames) -- get the index of the matching name
tell application "Finder" -- look up the file items for the matching names and get the dates
set psdDate to modification date of (item X of psdFiles)
set jpgDate to modification date of (item match of jpgFiles)
end tell
if psdDate > jpgDate then set the end of filesList to (item X of psdFiles) -- newer file, so add
else -- no match, so add
set the end of filesList to (item X of psdFiles)
end if
end repeat
filesList --> this list contains items (aliases) that are not in jpgsFolder or have a newer modification date
tell application "Adobe Photoshop CS3"
activate
set display dialogs to never
close every document saving no
end tell
repeat with aFile in filesList
set fileIndex to 0
tell application "Finder"
-- The step below is important because the 'aFile' reference as returned by
-- Finder associates the file with Finder and not Photoshop. By converting
-- the reference below 'as alias', the reference used by 'open' will be
-- correctly handled by Photoshop rather than Finder.
set theFile to aFile as alias
set theFileName to name of theFile
end tell
tell application "Adobe Photoshop CS3"
activate
open theFile
set docRef to the current document
set docHeight to height of docRef
set docWidth to width of docRef
------------------------------------------------------------------- 1st Export to jpeg
--Convert the document to a document mode that supports saving as jpeg
flatten docRef
tell docRef to convert to profile "sRGB IEC61966-2.1" intent perceptual with dithering and blackpoint compensation
if (bits per channel of docRef is sixteen) then
set bits per channel of docRef to eight
end if
--The first copy is simply saved with additional document info added
set infoRef to get info of docRef
set copyright notice of infoRef to "Copyright Frédéric Perrin"
set docName to name of docRef
set docBaseName to getBaseName(docName) of me
--set fileIndex to fileIndex + 1
set newFileName to (outputFolder1 as string) & docBaseName & ".jpg"
save docRef in file newFileName as JPEG appending lowercase extension with options {class:JPEG save options, quality:12, format options:optimized}
------------------------------------------------------------------- 2nd export to jpeg
-- The second copy is saved resized to width of 100 pixels proportionally
-- There is no scale constraint in the resize image command.
-- Use the height/width ratio to simulate the option.
set ruler units of settings to pixel units
set type units of settings to pixel units
resize image current document width choixtaille height (choixtaille * docHeight / docWidth)
-- repete la mise en memoire des variables, sinon des bugs
set docRef to the current document
set docName to name of docRef
set docBaseName to getBaseName(docName) of me
--set fileIndex to fileIndex + 1
set newFileName2 to (outputFolder2 as string) & docBaseName & "-" & choixtaille & ".jpg"
save docRef in file newFileName2 as JPEG appending lowercase extension --with options {class:JPEG save options, quality:12, format options:optimized}
-- The original document is closed without saving so it remains as it was
-- when opened for batch processing
close current document without saving
end tell
end repeat
-- Routines
-- Returns the document name without extension (if present)
on getBaseName(fName)
set baseName to fName
repeat with idx from 1 to (length of fName)
if (item idx of fName = ".") then
set baseName to (items 1 thru (idx - 1) of fName) as string
exit repeat
end if
end repeat
return baseName
end getBaseName
on justTheName from someFile
get the name from a file path
parameters - someFile [various]: a complete file path (POSIX or Finder)
returns [text] - the base file name
set someFile to someFile as text
tell application "System Events" to tell disk item someFile
set {theName, theExtension} to {name, name extension}
end tell
if theExtension is in {missing value, ""} then
set theExtension to ""
else
set theExtension to "." & theExtension
end if
return text 1 thru -((count theExtension) + 1) of theName -- just the name part
end justTheName
to listIndex of anItem from someList
get the (first) index of anItem in someList
parameters - anItem [various]: the item to look for
someList [list]: the list to look in
returns [integer]: the index (0 if not found)
set theIndex to 0
repeat with X from 1 to (count someList)
if (contents of (item X of someList)) is anItem then
set theIndex to X
exit repeat
end if
end repeat
return theIndex
end listIndex
on explications()
tell application "TextEdit"
activate
make new document
set text of front document to ¬
"--- Attention --- Le Script se lance pour gérer le dossier dans lequel il se trouve." & return & return & ¬
"Pour ne plus voir ce message, ouvrir le script/application et l'éditer avec un éditeur comme Editeur applescript : Effacer alors le premier paragraphe --> End Message" & return & return & return & ¬
"Il vérifie l'existence d'un dossier Psd, s'il existe, mais pas dans la bonne casse, renomme le dossier --" & return & "Donc -- attention -- si d'autres scripts sont chainés à ce dossier, il faudra mettre à jour la casse ou orthographe, sinon changer les variables en début de script afin que tous les scripts marchent avec le meme nom de ce dossier psd" & return & return & ¬
"Une fois cela géré, le dossier -psds- est créé, sil n'est pas deja la. Les fichiers psds pouvant être présents à la racine du dossier, où se trouve le script, seront déplacés dans le dossier psd" & return & ¬
"Ensuite, création d'un dossier jpeg contenant deux autres dossiers : jpgs HD et Sd, le 1er contiendra les jpegs à la resolution source du psd, le dossier Sd à la résolution de 1200px, soit acceptable pour le web ou le partage temporaire" & return & return & ¬
"Pour finir, le script peut être relancé à l'infini, les dossiers se synchronisent en fonction du dossier Psd et JpegsHD. Si de nouveaux fichiers se trouvent dans le dossier Psd, ou bien sils ont été modifiés, alors ils seront re-batchés en jpegs dans les dossiers correspondants." & return & ¬
"Donc -- Attention -- , ne jamais faire de retouches sur les fichiers Jpegs, seulement sur les psds, et -- attention-- aussi, les fichiers jpegs correspondants aux psds retouchés seront écrasés" & return & ¬
"Pour conserver des versions des fichiers, à la main, renommer séquentiellement les psds à l'enregistrement dans photoshop, ainsi les jpegs seront séquentiels aussi" & return & return & return & ¬
"La préférence, de choisir à la main la séquence des fichiers psds semble être plus pratique à l'usage, et de garder un minimum la main sur les images, afin de s'y retrouver" & return & return & return
end tell
end explications
-------------------------------------------------------------------