AppleScript et OS 10.6.4

Bonjour,

J'ai écrit une petite application en Applescript quand j'étais sous OS 10.5.
Je viens de passer en 10.6.4 et là ça ne marche plus.

J'ai déjà remarqué que "set FileName to name of..." ne fonctionne plus.
Pour le code suivant...

Code:

---

1 2 3 4 5

tell application "Finder" set TheFile to (choose file with prompt "Désigner le fichier :") set FileName to name of TheFile end tell

---

... rien n'y fait, j'ai un message d'erreur comme suit...

Citation:

---

error "Erreur dans Finder : Il est impossible d’obtenir alias \"Système:Users:Mac_Pro:Desktop:jeudi 26 août 2010.tif\"." number -1728 from alias "Système:Users:Mac_Pro:Desktop:jeudi 26 août 2010.tif"

---

Et cela, quelque soit le fichier. Pourtant ça fonctionnait parfaitement sous OS 10.5.8.

Pareille pour "get every document file"... J'obtiens exactement le même message d'erreur.

Merci d'avance à ceux qui peuvent m'aider.

Cordialement,

Michaël.

Salut,,

Le code :

Code:

---

1 2 3 4

tell application "Finder" set TheFile to (choose file with prompt "Désigner le fichier :") set FileName to name of TheFile end tell

---

fonctionne pourtant bien chez moi, c'est bien dans AppleScript Editor que tu l'utilises ? ou est-ce dans un autre logiciel, genre Xcode ?

Bonjour à tous,

Merci kOrt3x pour ton aide.

Oui, c'est bien dans AppleScript Editor. En fait, je m'en suis aperçu en voulant faire tourner l'application. Quand ça a buggé, j'ai ouvert mon app avec applescript et testé. ça ne marchait toujours pas. J'ai repris mon script d'origine et pareil.
Après avoir déterminé les endroits où l'application plantait, j'ai testé juste ces bouts de code avec un script vierge et j'ai toujours le même problème.

Pour changer le nom, j'ai réécrit le code différemment pour ne plus utiliser (tell application "Finder") et ça marche mais je ne sais pas comment faire pour récupère des fichiers dans un dossier avec "get every document file".

Je suis maintenant sous OS 10.6.4. Je l'ai installé à propre et j'ai remis quasiment tous les softs de mon ancienne installation. En revanche ce qui est nouveau, c'est une partition Boot Camp avec Windows. Je ne sais pas si ces infos peuvent aider.

Je suis un peu perplexe.

Si quelqu'un a une suggestion, je suis preneur.

Encore merci kOrt3x.

Michaël.

Rien à voir avec BootCamp ni avec l'installation d'autres applications. Le problème doit venir du coté du code, il y a beaucoup de code qui ne marche plus après le passage de 10.5 à 10.6.
Si tu peux nous faire voir entièrement ton code, je pourrai regarder. ;)

Bonjour à tous,

Merci kOrt3x de te pencher sur mon problème.

Voici mon code. J'avoue qu'il n'est pas très propre d'autant que je n'ai pas utilisé de fonctions comme j'aurai dû et j'ai aussi pris des bouts de codes à droite et à gauche. J'espère néanmoins que tu t'y retrouveras.

Code:

---

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978

on open theFiles   set theFiles to theFiles as list   display dialog "Choissez une des deux fonctions :" buttons {"Pivoter", "Convertir en JPG", "Sortir"} default button 1 set the button_pressed to the button returned of the result if the button_pressed is "Pivoter" then display dialog "Indiquez le sens de rotation : " buttons {"90°", "-90°", "Sortir"} default button 1 if the button returned of the result is "90°" then set Degre to 90 else if the button returned of the result is "-90°" then set Degre to 270 else return end if   repeat with aFile in theFiles   set aFile to aFile as alias   tell application "Image Events" launch set theImage to open aFile rotate theImage to angle Degre save theImage in aFile close aFile end tell   end repeat else if the button_pressed is "Convertir en JPG" then repeat with aFile in theFiles   tell application "Finder"   set fileName to the name of aFile set filePath to aFile as string   set nbrChar to (count of characters of fileName) set nbrChar to -nbrChar - 1 set filePath to text 1 thru nbrChar of (get filePath)   set aFile to aFile as alias set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to "." set theFile to text item 1 of fileName set theExtension to text item 2 of fileName set AppleScript's text item delimiters to "" set AppleScript's text item delimiters to TID if theExtension = "JPG" then set theFile to theFile & " - 2.JPG" as text else set theFile to theFile & ".JPG" as text end if end tell tell application "Image Events" launch set theImage to open aFile tell theImage save in filePath & theFile as JPEG close end tell end tell   end repeat else return end if   end open     display dialog "Que voulez-vous faire ?   - Trier des fichiers. - Renommer des fichiers. - Redater des fichiers." buttons {"Trier", "Renommer", "Redater"} default button 1 if the button returned of the result is "Trier" then   set tour to "on"   repeat while tour is "on"   --Sélection des dossiers out et in   set dossier_pref to (path to preferences) as string   ----------------------------------   --Sélection du dossier out   set le_dossier_memorise to ""   try set path_to_file_pref to dossier_pref & "TriPathOut" as alias open for access path_to_file_pref with write permission set le_dossier_memorise to read path_to_file_pref as string close access path_to_file_pref   on error   tell application "Finder" to make new file at alias dossier_pref with properties {name:"TriPathOut", creator type:"????", file type:"pref", locked:false, busy status:false, short version:"", long version:""} set path_to_file_pref to dossier_pref & "TriPathOut" as alias   end try   if le_dossier_memorise = "" then   display dialog "Désignez le dossier d'origine..." buttons {"Chercher", "Sortir"} default button 1 if the button returned of the result is "Chercher" then set out_folder to (choose folder with prompt "Désigner le dossier d'origine :") as string else tell application "Finder" to delete dossier_pref & "TriPathOut" return end if   else   display dialog ("Votre dossier d'origine est :   " & le_dossier_memorise & "   Cliquez sur «Valider» ou désignez le dossier d'origine...") buttons {"Valider", "Chercher", "Sortir"} default button 1 set the button_pressed to the button returned of the result if the button_pressed is "Valider" then set out_folder to le_dossier_memorise as string else if the button_pressed is "Chercher" then set out_folder to (choose folder with prompt "Désigner le dossier d'origine :") as string else return end if   end if   set le_dossier_a_memoriser to out_folder as string open for access path_to_file_pref with write permission write le_dossier_a_memoriser starting at 0 to path_to_file_pref set eof path_to_file_pref to (length of le_dossier_a_memoriser) close access path_to_file_pref   -------------------------   --Sélection du dossier in   set le_dossier_memorise to ""   try set path_to_file_pref to dossier_pref & "TriPathIn" as alias open for access path_to_file_pref with write permission set le_dossier_memorise to read path_to_file_pref as string close access path_to_file_pref   on error   tell application "Finder" to make new file at alias dossier_pref with properties {name:"TriPathIn", creator type:"????", file type:"pref", locked:false, busy status:false, short version:"", long version:""} set path_to_file_pref to dossier_pref & "TriPathIn" as alias   end try   if le_dossier_memorise = "" then   display dialog "Désignez le dossier de destination..." buttons {"Chercher", "Sortir"} default button 1 if the button returned of the result is "Chercher" then set in_folder to (choose folder with prompt "Désigner le dossier de destination :") as string else tell application "Finder" to delete dossier_pref & "TriPathIn" return   end if   else   display dialog ("Votre dossier de destination est :   " & le_dossier_memorise & "   Cliquez sur «Valider» ou désignez le dossier de destination...") buttons {"Valider", "Chercher", "Sortir"} default button 1 set the button_pressed to the button returned of the result if the button_pressed is "Valider" then set in_folder to le_dossier_memorise as string else if the button_pressed is "Chercher" then set in_folder to (choose folder with prompt "Désigner le dossier de destination :") as string else return end if   end if   set le_dossier_a_memoriser to in_folder as string open for access path_to_file_pref with write permission write le_dossier_a_memoriser starting at 0 to path_to_file_pref set eof path_to_file_pref to (length of le_dossier_a_memoriser) close access path_to_file_pref   -------------------------   --Premier récapitulatif et Option     display dialog ("Acceptez-vous les paramétrages par défaut :   Le dossier à traiter est : - " & out_folder & " Le dossier de destination est : - " & in_folder & "   Les options sont : - Traitement des fichiers «JPG» uniquement. - Les sous-dossiers ne seront pas traités. - Les doublons seront indexés. - Les fichiers seront renommés.") buttons {"Valider", "Options", "Sortir"} default button 1 set the button_pressed to the button returned of the result if the button_pressed is "Valider" then set fileType to "JPG" set Text_3 to "JPG" set Double to "on" set SubFolder to "off" set Renommer to "on" else if the button_pressed is "Options" then --Choix des options display dialog "Voulez-vous traiter les sous-dossiers ?" buttons {"Oui", "Non"} default button 2 if the button returned of the result is "Oui" then set SubFolder to "on" else set SubFolder to "off" end if   display dialog "Préciser ou sélectionner un type de fichier à traiter... Pour sélectionner tous les types de fichiers, effacer le champ de saisie." default answer "JPG" buttons {"OK", "JPG", "MOV"} default button 1 copy the result as list to {Text_3, Valide_3} if Valide_3 is "OK" then set fileType to Text_3 else set fileType to Valide_3 end if   display dialog "Que voulez-vous faire avec les doublons ?" buttons {"Ignorer", "Indexer", "Supprimer"} default button 2 set the Valide_4 to the button returned of the result if the Valide_4 is "Indexer" then set Double to "on" else if the Valide_4 is "Ignorer" then set Double to "off" else set Double to "kill" end if   display dialog "Voulez-vous renommer les fichiers ?" buttons {"Oui", "Non"} default button 1 if the button returned of the result is "Oui" then set Renommer to "on" else set Renommer to "off" end if   --------------------   --Récupération des valeurs des options   if Text_3 is "" then set Description_ext to "de tous les fichiers." else set Description_ext to ("des fichiers «" & fileType & "» uniquement.") end if   if Valide_4 is "Indexer" then set Description_doublon to "indexés." else if Valide_4 is "Ignorer" then set Description_doublon to "ignorés." else if Valide_4 is "Supprimer" then set Description_doublon to "supprimés." end if   if Renommer is "on" then set Description_Renommer to "seront renommés." else if Renommer is "off" then set Description_Renommer to "ne seront pas renommés." end if   if SubFolder is "on" then set Description_SubFolder to "seront traités." else if SubFolder is "off" then set Description_SubFolder to "ne seront pas traités." end if   ---------------------------------------   --Sous récapitulatif   display dialog ("Acceptez-vous les paramétrages par défaut :   Le dossier à traiter est : - " & out_folder & " Le dossier de destination est : - " & in_folder & "   Les options sont : - Traitement " & Description_ext & " - Les sous-dossiers " & Description_SubFolder & " - Les doublons seront " & Description_doublon & " - Les fichiers " & Description_Renommer) buttons {"Trier", "Sortir"} default button 1 if the button returned of the result is "Sortir" then return end if   ----------------------   else return   end if   --Fin des récapitulatifs   -------------------   tell application "Finder"   if SubFolder is "off" then if Text_3 is "" then set itemGroup to (get every document file of folder out_folder) else set itemGroup to (get every document file of folder out_folder whose name extension is fileType) end if else if SubFolder is "on" then if Text_3 is "" then set itemGroup to (get every document file of entire contents of folder out_folder) else set itemGroup to (get every document file of entire contents of folder out_folder whose name extension is fileType) end if end if   set FolderSwitch to ("off") as string   set NewName to ("") as string   set OldfolderName to ("") as string   set myOldFolder to ("") as string   set folder_liste to {}   set folder_count to 0   set OldY to 0   repeat with x from 1 to count of itemGroup   set Doublon to 1   set groupItem to item x of itemGroup   --Récupérer le chemin du fichier set New_out_folder to groupItem as string set Nom_fichier to the name of groupItem set nbrChar to (count of characters of Nom_fichier) set nbrChar to -nbrChar - 1 set New_out_folder to text 1 thru nbrChar of (get New_out_folder) ---------------------------------   set {year:y} to the creation date of groupItem   set laDate to the creation date of groupItem copy laDate to laDateBis set the month of laDateBis to January set m to (1 + (laDate - laDateBis + 1314864) div 2629728) if m < 10 then set m to ("0" & (m)) end if set laDateEcrite to laDate as string set folderName to ((m) & " - " & (3rd word of laDateEcrite) & " " & (y)) as string   if y ≠ OldY then tell application "Finder" try make new folder at in_folder with properties {name:y} end try end tell   set OldY to y set yearFolder to (in_folder & y) end if   if folderName ≠ OldfolderName then tell application "Finder" try make new folder at yearFolder with properties {name:folderName} end try end tell   set OldfolderName to folderName end if   set myFolder to (yearFolder & ":" & folderName) as string if myFolder is not in folder_liste then set folder_liste to folder_liste & myFolder   set Boucle to ("on")   repeat while (Boucle = "on")   if Doublon = 1 then set NewName to the name of groupItem else   tell application "Finder" set AliasName to myPhoto as alias set filePath to AliasName as text set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to ":" set fileName to last text item of filePath if Doublon = 2 then set AppleScript's text item delimiters to "." set fileNamePart1 to text item 1 of fileName set fileNamePart2 to text item 2 of fileName set fileName to fileNamePart1 & " - copie " & Doublon - 1 & "." & fileNamePart2 set AppleScript's text item delimiters to TID set name of AliasName to fileName set NewName to fileName else if Doublon > 2 then set AppleScript's text item delimiters to " " set fileNamePart1 to text item 1 of fileName set AppleScript's text item delimiters to "." set fileNamePart2 to text item 2 of fileName set AppleScript's text item delimiters to "" set fileName to fileNamePart1 & " - copie " & Doublon - 1 & "." & fileNamePart2 set AppleScript's text item delimiters to TID set name of AliasName to fileName set NewName to fileName end if end tell   end if   set myPhoto to ((New_out_folder) & (NewName)) as string   set Boucle to ("off")   tell application "Finder"   try move myPhoto to myFolder without replacing on error   if Double is "on" then set Doublon to Doublon + 1 set Boucle to "on" else if Double is "off" then set Boucle to "off" else if Double is "kill" then delete groupItem end if   end try   end tell   end repeat   end repeat   end tell   --Renommer les fichiers de chaque dossier traîté   if Renommer is "on" then   repeat with FolderToRename in folder_liste   tell application "Finder"   if Text_3 = "" then set itemFileSorted to (get every document file of folder FolderToRename) sort by creation date else set itemFileSorted to (get every document file of folder FolderToRename whose name extension is fileType) sort by creation date end if   set itemFile to reverse of itemFileSorted   set x to 0   repeat with FileToRename in itemFile set x to x + 1 if x < 10 then set x to ("00" & x) if x > 9 and x < 100 then set x to ("0" & (x)) end if set AliasName to FileToRename as alias set filePath to AliasName as text set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to ":" set NewNameFile to last text item of filePath set AppleScript's text item delimiters to "." set theExtension to text item 2 of NewNameFile set AppleScript's text item delimiters to "" set NewNameFile to (x & "." & theExtension) as string set AppleScript's text item delimiters to TID set name of AliasName to NewNameFile end repeat   if Text_3 = "" then set itemFileSorted to (get every document file of folder FolderToRename) else set itemFileSorted to (get every document file of folder FolderToRename whose name extension is fileType) end if   repeat with FileToRename in itemFileSorted   set AliasName to FileToRename as alias set filePath to AliasName as text set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to ":" set NewNameFile to last text item of filePath set AppleScript's text item delimiters to "." set NumeroPhoto to text item 1 of NewNameFile set theExtension to text item 2 of NewNameFile   set {year:y, day:d} to the creation date of FileToRename   set laDate to the creation date of FileToRename   set laDateEcrite to laDate as string set FrenchJour to 1st word of laDateEcrite set frenchMois to 3rd word of laDateEcrite   if d < 10 then set d to ("0" & (d)) end if   set AppleScript's text item delimiters to ""   set NewNameFile to (NumeroPhoto & " - " & FrenchJour & " " & d & " " & frenchMois & " " & y & "." & theExtension) as string set AppleScript's text item delimiters to TID set name of AliasName to NewNameFile   end repeat   end tell   end repeat   end if   --Dialogue de fin   display dialog "Le traitement des fichiers est terminé." buttons {"Sortir", "Recommencer"} default button 1 if the button returned of the result is "Sortir" then set tour to "off" else set tour to "on" end if   end repeat     --Renommer les fichiers de dossiers non traités   else if the button returned of the result is "Renommer" then   set Reaname_tour to "on"   repeat while Reaname_tour is "on"   --Sélection du dossier des fichiers à renommer   set folder_liste to {}   set dossier_pref to (path to preferences) as string   set le_dossier_memorise to ""   try set path_to_file_pref to dossier_pref & "RenamePath" as alias open for access path_to_file_pref with write permission set le_dossier_memorise to read path_to_file_pref as string close access path_to_file_pref   on error   tell application "Finder" to make new file at alias dossier_pref with properties {name:"RenamePath", creator type:"????", file type:"pref", locked:false, busy status:false, short version:"", long version:""} set path_to_file_pref to dossier_pref & "RenamePath" as alias   end try   if le_dossier_memorise = "" then   display dialog "Désignez le dossier des fichiers à renommer..." buttons {"Chercher", "Sortir"} default button 1 if the button returned of the result is "Chercher" then set rename_folder to (choose folder with prompt "Désigner le dossier des fichiers à renommer :") as string else tell application "Finder" to delete dossier_pref & "RenamePath" return end if   else   display dialog ("Le dossier des fichiers à renommer est :   " & le_dossier_memorise & "   Cliquez sur «Valider» ou désignez le dossier des fichiers à renommer...") buttons {"Valider", "Chercher", "Sortir"} default button 1 set the button_pressed to the button returned of the result if the button_pressed is "Valider" then set rename_folder to le_dossier_memorise as string else if the button_pressed is "Chercher" then set rename_folder to (choose folder with prompt "Désigner le dossier des fichiers à renommer :") as string else return end if   end if   set le_dossier_a_memoriser to rename_folder as string open for access path_to_file_pref with write permission write le_dossier_a_memoriser starting at 0 to path_to_file_pref set eof path_to_file_pref to (length of le_dossier_a_memoriser) close access path_to_file_pref   --Premier Récapitulatif   set {year:y, day:d} to the current date set laDate to the current date set laDateEcrite to laDate as string set FrenchJour to 1st word of laDateEcrite set frenchMois to 3rd word of laDateEcrite set Name_Format to "001 - " & FrenchJour & " " & d & " " & frenchMois & " " & y & ".JPG" as string   display dialog ("Acceptez-vous les paramétrages par défaut :   Le dossier des fichiers à renommer est : - " & le_dossier_memorise & "   Les options sont : - Les sous-dossiers seront traités. - Traitement des fichiers «JPG» uniquement. - Les fichiers seront renommés au format : " & Name_Format) buttons {"Valider", "Options", "Sortir"} default button 1 if the button returned of the result is "Valider" then set SubFolder to "on" set fileType to "JPG" set Text_3 to "JPG" set formatDate to "jour" set button_pressed to "Dater" else if the button returned of the result is "Options" then   display dialog "Voulez-vous traiter les sous-dossiers ?" buttons {"Oui", "Non"} default button 2 if the button returned of the result is "Oui" then set SubFolder to "on" set Description_SubFolder to "seront" else set SubFolder to "off" set Description_SubFolder to "ne seront pas" end if   display dialog "Préciser ou sélectionner un type de fichier à traiter... Pour sélectionner tous les types de fichiers, effacer le champ de saisie." default answer "JPG" buttons {"OK", "JPG", "MOV"} default button 1 copy the result as list to {Text_3, Valide_3} if Valide_3 is "OK" then set fileType to Text_3 else set fileType to Valide_3 end if   if fileType = "" then set Description_Type to "Tous les fichiers seront traités." else set Description_Type to ("Seuls les fichiers de type «" & fileType & "» seront traités.") end if   display dialog ("- Pour rennommer les fichiers au format : " & Name_Format & " cliquer \"Dater\"   - Pour numéroter les fichiers au format : 001.JPG cliquer \"Numéroter\"   - Pour personnaliser les fichiers au format : Perso 001.JPG Saisir un nom et cliquer sur \"Personnaliser\"") default answer "Perso" buttons {"Dater", "Numéroter", "Personnaliser"} default button 1 copy the result as list to {personnalisation, button_pressed} if button_pressed = "Dater" then set Nom_Format to "Dater" set Description_Format to Name_Format else if button_pressed = "Numéroter" then set Description_Format to "001.JPG" else if button_pressed = "Personnaliser" then set Description_Format to personnalisation & " 001.JPG" end if   -- Deuxième Récapitulatif   display dialog ("Récapitulatif de vos paramètres :   Le dossier des fichiers à renommer est : - " & le_dossier_memorise & "   Les options sont : - Les sous-dossiers " & Description_SubFolder & " traités. - " & Description_Type & " - Les fichiers seront renommés au format : " & Description_Format) buttons {"Trier", "Sortir"} default button 1 if the button returned of the result is "Sortir" then return end if   else if the button returned of the result is "Sortir" then return end if     tell application "Finder"   --set folder_liste to folder_liste & myFolder   if SubFolder is "off" then set folder_liste to folder_liste & rename_folder else if SubFolder is "on" then try set folder_liste to (get every folder of entire contents of folder rename_folder) set folder_liste to folder_liste & rename_folder on error try set folder_liste to (get every folder of folder rename_folder) --set folder_liste to folder_liste & rename_folder end try set folder_liste to folder_liste & rename_folder end try   --return folder_liste end if   repeat with FolderToRename in folder_liste   set RenamedFolder to FolderToRename as string --return RenamedFolder   tell application "Finder"   if Text_3 = "" then set itemFileSorted to (get every document file of folder RenamedFolder) sort by creation date else set itemFileSorted to (get every document file of folder RenamedFolder whose name extension is fileType) sort by creation date --return itemFileSorted end if   set itemFile to reverse of itemFileSorted   set x to 0   repeat with FileToRename in itemFile set x to x + 1 if x < 10 then set x to ("00" & x) if x > 9 and x < 100 then set x to ("0" & (x)) end if set AliasName to FileToRename as alias set filePath to AliasName as text set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to ":" set NewNameFile to last text item of filePath set AppleScript's text item delimiters to "." set theExtension to text item 2 of NewNameFile set AppleScript's text item delimiters to "" set NewNameFile to (x & "." & theExtension) as string set AppleScript's text item delimiters to TID set name of AliasName to NewNameFile end repeat   if button_pressed = "Dater" then   if Text_3 = "" then set itemFileSorted to (get every document file of folder RenamedFolder) else set itemFileSorted to (get every document file of folder RenamedFolder whose name extension is fileType) end if   repeat with FileToRename in itemFileSorted   set AliasName to FileToRename as alias set filePath to AliasName as text set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to ":" set NewNameFile to last text item of filePath set AppleScript's text item delimiters to "." set NumeroPhoto to text item 1 of NewNameFile set theExtension to text item 2 of NewNameFile   set {year:y, day:d} to the creation date of FileToRename   set laDate to the creation date of FileToRename   set laDateEcrite to laDate as string set FrenchJour to 1st word of laDateEcrite set frenchMois to 3rd word of laDateEcrite   if d < 10 then set d to ("0" & (d)) end if   set AppleScript's text item delimiters to ""   set NewNameFile to (NumeroPhoto & " - " & FrenchJour & " " & d & " " & frenchMois & " " & y & "." & theExtension) as string set AppleScript's text item delimiters to TID set name of AliasName to NewNameFile   end repeat   end if   if button_pressed = "Personnaliser" then   if Text_3 = "" then set itemFileSorted to (get every document file of folder RenamedFolder) else set itemFileSorted to (get every document file of folder RenamedFolder whose name extension is fileType) end if   repeat with FileToRename in itemFileSorted   set AliasName to FileToRename as alias set filePath to AliasName as text set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to ":" set NewNameFile to last text item of filePath set AppleScript's text item delimiters to "." set NumeroPhoto to text item 1 of NewNameFile set theExtension to text item 2 of NewNameFile set AppleScript's text item delimiters to ""   set NewNameFile to (personnalisation & " " & NumeroPhoto & "." & theExtension) as string set AppleScript's text item delimiters to TID set name of AliasName to NewNameFile   end repeat   end if   end tell   end repeat   end tell   --Dialogue de fin   display dialog "Le traitement des fichiers est terminé." buttons {"Sortir", "Recommencer"} default button 1 if the button returned of the result is "Sortir" then set Reaname_tour to "off" else set Rename_tour to "on" end if   end repeat   else   --Redater les fichiers   set datetour to "on"   repeat while datetour is "on"     display dialog "Désignez le dossiers ou le(s) fichier(s) à traiter..." buttons {"Dossier", "Fichier(s)", "Sortir"} default button 2 if the button returned of the result is "Fichier(s)" then set ReDate_files to (choose file with prompt "Désigner le(s) fichier(s) à traiter :" with multiple selections allowed) else if the button returned of the result is "Dossier" then set ReDate_files to {} set ReDate_folder to (choose folder with prompt "Désigner le dossier à traiter :") tell application "Finder" set itemFolderSorted to (get every document file of folder ReDate_folder) sort by creation date set itemFolder to reverse of itemFolderSorted end tell repeat with Item_folder in itemFolder set Item_folder to Item_folder as alias set ReDate_files to ReDate_files & Item_folder end repeat else return end if     set Aujourdhui to current date   set jour to day of Aujourdhui set annee to year of Aujourdhui   copy Aujourdhui to AujourdhuiBis set the month of AujourdhuiBis to January set mois to (1 + (Aujourdhui - AujourdhuiBis + 1314864) div 2629728) if mois < 10 then set mois to ("0" & (mois)) end if if jour < 10 then set jour to ("0" & (jour)) end if   set Aujourdhui_perso to (jour & "/" & mois & "/" & annee) as string   display dialog "Entrez la nouvelle date au format " & Aujourdhui_perso default answer Aujourdhui_perso buttons {"Valider", "Sortir"} default button 1 copy the result as list to {NewDateBrute, button_pressed} if button_pressed is "Sortir" then return   repeat while length of NewDateBrute ≠ 10 display dialog "Le format de la date n'est pas respecté. Vous ne pouvez utiliser que des chiffres et des «/». Les jours et les mois doivent comporter 2 chiffres. L'année doit comporter 4 chiffres. Veuillez ressaisir une date." default answer Aujourdhui_perso buttons {"Valider", "Sortir"} default button 1 copy the result as list to {NewDateBrute, button_pressed} if button_pressed is "Sortir" then return end repeat   display dialog "" buttons {"Date de création", "Date de modification", "Les deux"} default button 1 if the button returned of the result is "Date de création" then set DateChange to "creation" else if the button returned of the result is "Date de modification" then set DateChange to "modification" else set DateChange to "lesdeux" end if   set NewJour to items 1 thru 2 of NewDateBrute set NewMois to items 4 thru 5 of NewDateBrute set NewAnnee to items 7 thru 10 of NewDateBrute   set heure to 12 as string set minute to 0 set seconde to 0   tell application "Finder"   repeat with NewFileToRedate in ReDate_files   set seconde to seconde + 1 if seconde = 60 then set seconde to 0 set minute to minute + 1 end if   if seconde < 10 then set seconde to ("0" & seconde) if minute < 10 then set minute to ("0" & minute)   set NewDate to ("\"" & NewMois & "/" & NewJour & "/" & NewAnnee & " " & heure & ":" & minute & ":" & seconde & "\"") as string   tell application "Finder"   set NewFileToRedate to POSIX path of NewFileToRedate     set TID to AppleScript's text item delimiters set AppleScript's text item delimiters to {" "} set NewFileToRedate to text items of NewFileToRedate set AppleScript's text item delimiters to {"\\ "} set NewFileToRedate to NewFileToRedate as Unicode text set AppleScript's text item delimiters to {""} set TID to AppleScript's text item delimiters set NewFileToRedate to " " & NewFileToRedate   if DateChange = "creation" then do shell script "SetFile -d " & NewDate & " " & NewFileToRedate else if DateChange = "modification" then do shell script "SetFile -md " & NewDate & " " & NewFileToRedate else do shell script "SetFile -md " & NewDate & " " & NewFileToRedate do shell script "SetFile -d " & NewDate & " " & NewFileToRedate end if   end tell   end repeat   end tell   display dialog "Le traitement des fichiers à redater est terminé." buttons {"Sortir", "Recommencer"} default button 1 if the button returned of the result is "Sortir" then set datetour to "off" else set datetour to "on" end if   end repeat   end if

---

C'est peut-être un peu fastidieux, désolé.
Aussi, si tu trouves mon problème j'en serai très heureux.

A bientôt,

Michaël.

Ok, il y a pas mal de lignes... :p

Où ça bloque exactement ???

Bon ton code compile bien chez moi et ce lance bien, bon après, je sais pas quoi en faire...

Tu as des erreurs chez toi à quel niveau ?

Bonjour kOrt3x,

Merci pour ton aide. Désolé pour ma réponse tardive.

Donc mon code bloque dès le premier "set ??? to name of ???" que l'on retrouve dans mon code avec "set fileName to the name of aFile".
Je t'avoue que je n'ai pas testé sur les suivants, mais comme j'ai dit, chez moi cette simple ligne buggue déjà sur un scripte de 4 lignes.
Même problème avec "get every document file of folder ???". J'ai le même message d'erreur.
Ces deux actions doivent intervenir avec "tell application "Finder"". Je me demande si ça vient pas de là, car comme j'ai dit plus haut, on peut contourner ça autrement sans passer par Finder. Mais bon... ce n'est pas l'idée. J'aimerai comprendre pourquoi ça ne marche pas chez moi.

Je suis sur un PC aujourd'hui, donc pas de tests possibles, mais je vais jeter un coup d'oeil plus approfondit sur ce message d'erreur.

Je suis sûr que c'est un truc tout con. Je sais bien que mon code n'est pas blindé, je l'ai écrit surtout pour moi, mais quand même, je ne vois pas pourquoi ça buggue après une mise à jour du système... (Enfin... ce n'est pas tout à fait une mise à jour vu que j'ai réinstallé après formatage).

Bon, en tout cas, encore merci pour ton aide.

Michaël.

Le message d'erreur vient quand tu compiles ou quand tu exécutes ton script ?

Bonjour kOrt3x,

Le message vient quand j'exécute le script. Idem quand je lance l'application sauvegardée.

Je désespère un peu. Je suis novice dans le développement et j'ai mis 60 à 70 heures pour écrire ce scripte et ce juste avant de faire la mise à jour de l'OS. Si j'avais su !

Cela dit, si ça marche chez toi, c'est que le problème vient sûrement de mon installation et non d'un bug de Snow. Un paramètre ou quelque-chose de tellement bête qu'on y pense pas.

Merci pour ton aide,

Michaël.

Est-ce que Xcode et les outils de développement Apple sont installer sur la machine ?

:applo::applo::applo:

Bonjour kOrt3x,

Bon, effectivement Xcode et les outils de développement Apple n'étaient pas installés. Maintenant que c'est fait, tout fonctionne comme avant.

Du coup je me pose deux questions...

Je ne me rappelle absolument pas avoir installé Xcode avec l'OS 10.5. Peut-être lors d'une mise à jour automatique, je n'ai pas fait attention. Alors admettons que c'est le cas...

Est-ce que cette petite application ne fonctionnera que sur les machines où Xcode est installé ?

Y-a-t'il des choses à revoir dans mon code (je parle en dehors de son optimisation avec des fonctions etc...:oops:) pour que l'application puisse fonctionner sans Xcode ?

Est-ce dans la nature d'AppleScript d'être dépendant de Xcode ?

Bon... même sans les réponse à ces questions existentialistes, le problème posé sur ce post est réglé.

Un grand merci à toi et encore une fois :applo:.

Michaël.

Sous 10.5, il n'y avait pas besoin d'avoir Xcode pour faire marcher de l'AppleScript, mais depuis 10.6, j'ai l'impression que l'AppleScript commence à disparait petit à petit, exemple, sous 10.5, on pouvait créer des applications en AppleScript Studio (AppleScript + Interface graphique) sans problème, par contre, maintenant, il est beaucoup plus difficile de créer ce style d'application car c'est devenu des applications en Cocoa-AppleScript et qui ne ressemble plus à de l'AppleScript.

Après savoir si ça va marcher sur une autre machine sans les outils Xcode, je pense bien que non, mais j'aimerai bien aussi avoir la solution.

Sinon, petit coup du pub pour mon livre sur l'AppleScript si ça t'intéresses : http://mac.developpez.com/livres/?pa...L9782744023439
:ccool:

Bonjour kOrt3x,

Merci pour tes infos et ton aide.
Dommage qu'AppleScript Studio ne soit plus trop à la mode, car je m'étais mis en tête de re-développer cette petite application avec une interface graphique. Du coup quand j'aurai un peu plus de temps, j'irai voir du côté du Cocoa.

Je pensais à un truc... Maintenant que Xcode est installé sur ma machine, je me demandais si, en compilant et en retestant l'application sur une autre machine avec OS 10.6 sur laquelle Xcode n'aurait pas été installé, ça fonctionnerait ? Peut-être qu'en compilant, l'application intègrerait des éléments qui la rendrait autonome.
C'est juste une idée que je tâcherai de tester.

A bientôt,

Michaël.

Bonjour,
Apple décourrage en effet l'utilisation de AppleScript sous Xcode depuis les dernières versions.
Mais en changeant un paramètre, tous rentre dans l'ordre.
dans le terminal taper :

defaults write com.apple.InterfaceBuilder3 IBEnableAppleScriptStudioSupport -bool YES

refermer le Terminal et vous pouvez désormais avoir accès à AppleScript sous XCode.

PS : pour remettre comme avant, retaper la même ligne en changeant le "YES" and "NO"

Citation:

---

Envoyé par PBELL

Bonjour,
Apple décourrage en effet l'utilisation de AppleScript sous Xcode depuis les dernières versions.
Mais en changeant un paramètre, tous rentre dans l'ordre.
dans le terminal taper :

defaults write com.apple.InterfaceBuilder3 IBEnableAppleScriptStudioSupport -bool YES

refermer le Terminal et vous pouvez désormais avoir accès à AppleScript sous XCode.

PS : pour remettre comme avant, retaper la même ligne en changeant le "YES" and "NO"

---

Super astuce, merci. :ccool:

Bonsoir à tous,

Oui, effectivement, c'est intéressant. Merci PBELL.

Je ne suis pas au point avec tout ça, mais dans ce cas n'est-il pas possible d'ajouter cette ligne en passant par un shell en début de script avec YES et en fin de script avec NO ?

Michaël.

Bonjour Bimini,
Désolé, j'ai du mal m'exprimer.
La commande indiquée permet de programmer en AppleScript dans Xcode.
Une fois exécutée, dans l'environnement de développement Xcode, tu disposes des accès à AppleScript Studio (dans le compilateur et surtout dans Interface Builder.
C'est donc juste fait pour que l'environnement te redonne accès aux fonctions propres à AppleScriptStudio
Comme précisé, cela fonctionne jusqu'à la version Xcode 3.2.3. je n'ai pas encore la version 4.

Donc cela ne sert à rien, de lancer cette commande en cours de script, car un script classique n'utilise pas l'environnement de développement Xcode.

Pour revenir à ton script, je viens de le télécharger pour voir si je peux t'aider.
Je suis nouveau en AppleScript (1 an seulement), mais j'ai quelques restes de logique (je programmais il y a plus de 25 ans !). Il parait que c'est comme le vélo..ça ne s'oublie pas !
Je ne te promets rien. Laisse moi qq jours

A+

Bonjour tout le monde,

Merci PBELL pour cette précision. Je n'avais pas compris, en effet.

Pour ce qui est de mon code, je te remercie. Mais comme je l'ai dit il n'est pas très propre, donc inutile de te tirer les cheveux dessus.
Maintenant que j'ai installé Xcode, il fonctionne parfaitement sur ma bécane (à part un petit bug que j'ai découvert il y a deux jours et que je corrigerai à mes heures perdues, c'est une simple erreur de programmation).
Il est vrai que je développe très ponctuellement (je faisais un peu de VB avant) pour me simplifier l'existence (et en l'occurrence ce dernier script principalement pour les milliers de photos que je n'avais jamais triées proprement) et j'ai la fâcheuse habitude d'avancer à mesure que j'imagine les choses sans prendre le temps de voir le code dans son ensemble.

A bientôt,

Michaël.