J'ai posté par erreur en double ceci dans la liste des script
shells.... Excuses
En m'inspirant d'exemples existants , j'ai un script qui crée un
nouveau dossier, et à partir d'une sélection d'images dans Iphoto,
les copie dans ce dossier, auquel le script attache un "folder action
script" pratiquement identique à un script Apple de traitement
d'images, et qui produit une version comprimée et réduite des images.
Voir ci dessous.
Or cela ne fonctionne pas de façon fiable. J'ai très fréquemment une
erreur qui provient du "folder action script":
L'opération n'a pu être effectuée, car certains éléments ont été
ignorés. "Nom_image" -15266
Je n'arrive pas à comprendre quelle est cette erreur -15266 et
comment l'éviter. Je n'ai pas trouvé ce numéro d'erreur dans les
listes d'erreurs. Pour contourner le problème, faudrait il intégrer
les éléments et actions du "folder action script" dans mon script
principal? Je précise que certains des fichiers originaux sont très
volumineux, mais ceci ne semble pas lié à l'apparition de l'erreur...
Merci
--FOLDER ACTION SCRIPT
property done_foldername : "JPEG Images"
property originals_foldername : "Original Images"
property newimage_extension : "jpg"
-- the list of file types which will be processed-- eg: {"PICT",
"JPEG", "TIFF", "GIFf"}property type_list : {"TIFF", "GIFf", "PNGf",
"PICT"}
-- since file types are optional in Mac OS X,-- check the name
extension if there is no file type-- NOTE: do not use periods (.)
with the items in the name extensions list-- eg: {"txt", "text",
"jpg", "jpeg"}, NOT: {".txt", ".text", ".jpg", ".jpeg"}property
extension_list : {"tif", "tiff", "gif", "png", "pict", "pct"}
property pBorderWidth : 100 (* line added to original script *)
on adding folder items to this_folder after receiving these_items
tell application "Finder"
if not (exists folder done_foldername of this_folder) then
make new folder at this_folder with properties {name:done_foldername}
end if
set the results_folder to (folder done_foldername of this_folder)
as alias
if not (exists folder originals_foldername of this_folder) then
make new folder at this_folder with properties
{name:originals_foldername}
set current view of container window of this_folder to list view
end if
set the originals_folder to folder originals_foldername of this_folder
end tell
try
repeat with i from 1 to number of items in these_items
set this_item to item i of these_items
set the item_info to the info for this_item
if (alias of the item_info is false and the file type of the
item_info is in the type_list) or (the name extension of the
item_info is in the extension_list) then
tell application "Finder"
my resolve_conflicts(this_item, originals_folder, "")
set the new_name to my resolve_conflicts(this_item,
results_folder, newimage_extension)
set the source_file to (move this_item to the originals_folder
with replacing) as alias
end tell
process_item(source_file, new_name, results_folder)
end if
end repeat
on error error_message number error_number
if the error_number is not -128 then
tell application "Finder"
activate
display dialog error_message & " " & error_number buttons
{"Annuler"} default button 1 giving up after 20
end tell
end if
end try
end adding folder items to
on resolve_conflicts(this_item, target_folder, new_extension)
tell application "Finder"
set the file_name to the name of this_item
set file_extension to the name extension of this_item
if the file_extension is "" then
set the trimmed_name to the file_name
else
set the trimmed_name to text 1 thru -((length of file_extension) +
2) of the file_name
end if
if the new_extension is "" then
set target_name to file_name
set target_extension to file_extension
else
set target_extension to new_extension
set target_name to (the trimmed_name & "." & target_extension) as
string
end if
if (exists document file target_name of target_folder) then
set the name_increment to 1
repeat
set the new_name to (the trimmed_name & "." & (name_increment as
string) & "." & target_extension) as string
if not (exists document file new_name of the target_folder) then
-- rename to conflicting file
set the name of document file target_name of the target_folder
to the new_name
exit repeat
else
set the name_increment to the name_increment + 1
end if
end repeat
end if
end tell
return the target_name
end resolve_conflicts
-- this sub-routine processes fileson process_item(source_file,
new_name, results_folder)
-- NOTE that the variable this_item is a file reference in alias format
-- FILE PROCESSING STATEMENTS GOES HERE
try
-- the target path is the destination folder and the new file name
set the target_path to ((results_folder as string) & new_name) as
string
with timeout of 900 seconds
tell application "Image Events"
launch -- always use with Folder Actions
set this_image to open file (source_file as string)
set {FileWidth, FileHeight} to the dimensions of this_image (*
line added to original script *)
set newFilewidth to (FileWidth + (my pBorderWidth)) (* line added
to original script *)
set NewFileHeight to (FileHeight + (my pBorderWidth)) (* line
added to original script *)
pad this_image to dimensions {newFilewidth, NewFileHeight} (*
line added to original script *)
scale this_image to size 640 (* line added to original script *)
save this_image as JPEG in file target_path with icon
close this_image
end tell
end timeout
on error error_message
tell application "Finder"
activate
display dialog error_message & " " & error_number buttons {"Annuler"}
default button 1 giving up after 120
--display dialog error_message buttons {"Cancel"} default button 1
giving up after 120
end tell
end try
end process_item
--FOLDER ACTION SCRIPT
_______________________________________________
Applescript_fr mailing list
Applescript_fr@???
http://listes.patpro.net/mailman/listinfo/applescript_fr
