Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle

De : (Liste AppleScript francophone) <applescript_fr@xxxxxxx.net>
À : "(Liste AppleScript francophone)" <applescript_fr@xxxxxxx.net>
Date : jeudi 19 juillet 2001 7:01
Objet : applescript_fr Digest #244

        Liste AppleScript francophone Digest #244

 1) Comment faire un droplet?
    by Olivier Berquin <ob@xxxxxxx.be>
 2) Re: Comment faire un droplet?
    by SeguS <wirinum@xxxxxxx.fr>
 3) Re: Comment faire un droplet?
    by SeguS <wirinum@xxxxxxx.fr>

De : Olivier Berquin <ob@xxxxxxx.be>
Date : Wed, 18 Jul 2001 16:53:58 +0200
Objet : [AS] Comment faire un droplet?

Salut à tous,

Voilà, j'ai écrit un ch'tit script qui me permet de déverrouiller tous les
fichiers d'un dossier (très utile quand on doit copier des cd venant du bô
monde PC).
J'aimerais en faire une petite application sur mon bureau, mais comment ?

Toutes contributions bienvenues.

Oli.

N.B. Pour ceux que cela intéresse, voici mon script:

tell application "Finder"
    set FolderToClean to choose folder with prompt "Choisis un dossier pour
lequel il faut déverrouiller TOUS les fichiers"
    -- déverrouille les fichiers des sous-dossiers
    set locked of (every file of (every folder of (FolderToClean))) to false
    -- déverrouille les fichiers du dossier
    set locked of (every file of (FolderToClean)) to false
end tell







De : SeguS <wirinum@xxxxxxx.fr>
Date : Wed, 18 Jul 2001 21:14:46 +0200
Objet : [AS] Re: Comment faire un droplet?

==> Message de "Olivier Berquin" du 18/07/2001 16:53 :

> Salut à tous,
> 
> Voilà, j'ai écrit un ch'tit script qui me permet de déverrouiller tous les
> fichiers d'un dossier (très utile quand on doit copier des cd venant du bô
> monde PC).
> J'aimerais en faire une petite application sur mon bureau, mais comment ?

avec Tanaka Osax 2.0 (pour éviter le bug "entire contents" ;-)

on open many_Folders
    repeat with the_folder in many_Folders
        set the_folder to MT List Folders the_folder return as alias¬
          with sub folders
        repeat with a_folder in the_folder
            repeat with a_file in MT List Files a_folder return as alias
                tell application "Finder"¬
                to set the locked of a_file to false
            end repeat
        end repeat
    end repeat
end open

--
serge wirinum@xxxxxxx.fr
"I still believe that HyperCard is the best program ever written"
Steve Wozniak (Juin 2001)







De : SeguS <wirinum@xxxxxxx.fr>
Date : Wed, 18 Jul 2001 21:53:27 +0200
Objet : [AS] Re: Comment faire un droplet?

==> Message de "Olivier Berquin" du 18/07/2001 16:53 :

> Voilà, j'ai écrit un ch'tit script qui me permet de déverrouiller tous les
> fichiers d'un dossier (très utile quand on doit copier des cd venant du bô
> monde PC).
> J'aimerais en faire une petite application sur mon bureau, mais comment ?

oups ! - on peut économiser une boucle repeat - tjs avec Tanaka osax 2.0


on open many_Folders
    repeat with the_folder in many_Folders
        set the_files to MT List Files the_folder¬
                 return as alias with sub folders
        repeat with a_file in the_files
            tell application "Finder" to set the locked of a_file to false
        end repeat
    end repeat
end open


--
serge wirinum@xxxxxxx.fr
"I still believe that HyperCard is the best program ever written"
Steve Wozniak (Juin 2001)