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 : mercredi 24 avril 2002 07:01
Objet : applescript_fr Digest #482

        Liste AppleScript francophone Digest #482

 1) Si vide?
    by "odr.r" <odr.r@xxxxxxx.net>
 2) Re: Si vide?
    by "serge.segu" <serge.segu@xxxxxxx.fr>
 3) Re: Si vide?
    by Daniel Varlet <varlet@xxxxxxx.ch>
 4) Re: Si vide?
    by Nicolas Barbulesco <nbarbulesco@xxxxxxx.fr>

De : "odr.r" <odr.r@xxxxxxx.net>
Date : Tue, 23 Apr 2002 22:06:31 +0200
Objet : [AS] Si vide?

Bonjour.
Je essaye d'ecrire un script qui supprime un dossier si il est vide.
Je ne sais pas quel commande employer.
Merci






De : "serge.segu" <serge.segu@xxxxxxx.fr>
Date : Tue, 23 Apr 2002 23:50:41 +0200
Objet : [AS] Re: Si vide?

le 23/04/02 22:06, "odr.r" aurait dit :

> Je essaye d'ecrire un script qui supprime un dossier si il est vide.
> Je ne sais pas quel commande employer.

tell application "Finder"
    if (list folder (the selection) with invisibles) is {} ¬
    then delete the selection
end tell
--
Serge









De : Daniel Varlet <varlet@xxxxxxx.ch>
Date : Wed, 24 Apr 2002 00:04:32 +0200
Objet : [AS] Re: Si vide?

À 22:06 +0200 le 23.04.2002, odr.r écrivait au sujet de "[AS] Si vide?" :
> Bonjour.
> Je essaye d'ecrire un script qui supprime un dossier si il est vide.
> Je ne sais pas quel commande employer.
> Merci


Lire le dico du Finder ....

--set monDossier to choose folder
set monDossier to "DD:dossier:"
Tell app "finder"
activate
if items of item monDossier is {} then delete item monDossier
display dialog "vider la corbeille ?"
empty
end

A+

-- 
Daniel





De : Nicolas Barbulesco <nbarbulesco@xxxxxxx.fr>
Date : Wed, 24 Apr 2002 00:14:33 +0200
Objet : [AS] Re: Si vide?

Le 23/04/2002 22:06, odr.r écrivait :

> Bonjour.
> Je essaye d'ecrire un script qui supprime un dossier si il est vide.
> Je ne sais pas quel commande employer.
> Merci

Ah ben ça c'est une demande pas très compliquée (pour une fois ;-) .

[script]
tell application "Finder"
   set ceDossier to (choose folder)
   if the count of ceDossier is 0 then delete cedossier
end tell
[/script]

Et si tu veux appliquer ce traitement (effacer si vide) à tous les dossiers
d'un dossier donné (pour le « nettoyer ») :

[script]
tell application "Finder"
	set leDossierParent to (choose folder)
	repeat with ceDossier in every folder of leDossierParent
		if the (count of ceDossier) is 0 then delete ceDossier
	end repeat
end tell
[/script]

Remarque 1 (oui les profs ça déteint ;-) : le traitement est appliqué à
chaque dossier présent dans leDossierParent, pas aux alias de dossiers.
Pourrait être corrigé.

Remarque 2 : on pourrait aussi nettoyer un dossier et tous ses sous+-
dossiers (sous-dossiers, sous-sous-dossiers...). Récursivement ou alors
avec entire contents.

Remarque 3 : on entend par effacer (et AS entend par delete) mettre à la
corbeille.

Voilà.

Nico