1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
-- Attend que la boîte de dialogue de sauvegarde de Chrome apparaisse
repeat until exists of window 1 of process "Google Chrome"
delay 0.1
end repeat
-- Attend que l'utilisateur entre le nom de fichier avec extension dans la boîte de dialogue de sauvegarde de Chrome
repeat until exists of text field 1 of window 1 of process "Google Chrome"
delay 0.1
end repeat
-- Récupère le nom de fichier avec extension de la boîte de dialogue de sauvegarde de Chrome
tell application "System Events"
set fullFileName to value of text field 1 of window 1 of process "Google Chrome"
end tell
-- Sépare le nom de fichier et son extension
set fileNameWithExtension to fullFileName
set fileName to text 1 thru -5 of fileNameWithExtension
set fileExtension to text -4 thru -1 of fileNameWithExtension
-- Demande à l'utilisateur de choisir un dossier pour enregistrer le fichier
set targetFolder to choose folder with prompt "Sélectionnez le dossier où enregistrer le fichier"
-- Initialise l'incrément
set increment to 0
-- Tant que le fichier existe déjà, incrémente le compteur
repeat
set increment to increment + 1
set finalFileName to fileName & increment & fileExtension
set targetFile to (targetFolder as text) & finalFileName
if not (exists file targetFile) then exit repeat
end repeat |
Partager