tell application "Finder"
set cheminsource to choose folder with prompt "Sélectionnez le dossier contenant les fichiers à copier"
set chemincible to choose folder with prompt "Sélectionnez le dossier cible"
set laliste to choose file with prompt "Sélectionnez le fichier liste"
my inspecter(cheminsource, chemincible, laliste)
end tell
on inspecter(source, cible, liste1)
set dossiersource to source as string
set dossiercible to cible as string
open for access liste1
read liste1
set tout_le_fichier to the result
close access liste1
set AppleScript's text item delimiters to (ASCII character 44)
set toutes_les_lignes to (every text item of tout_le_fichier) as list
set AppleScript's text item delimiters to ""
set tout_le_fichier to ""
repeat with une_ligne in toutes_les_lignes
set CheminImage to dossiersource & une_ligne & ".cr2"
tell application "Finder"
if exists CheminImage then
display dialog "j'ai trouvé le fichier " & CheminImage
else
display dialog "PAS trouvé le fichier " & CheminImage
end if
end tell
end repeat
end inspecter
tell application "Finder"
(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell