--on run {input, parameters}
tell application "Finder"
set chemin to (path to desktop folder) & "mesliens:" as string
set chemin to chemin as alias
my inspecter(chemin)
end tell
on inspecter(source)
tell application "Finder"
-- traitement des fichiers :
set les_fichiers to files of source
repeat with chaque_fichier in les_fichiers
-- traitement d'un fichier
tell application "Finder"
set lefichier to chaque_fichier
set extens to chaque_fichier
set lextension to name extension of extens
if lextension = "Webloc" then
open lefichier
end if
end tell
end repeat
-- traitement des dossiers :
set les_dossiers to folders of source
repeat with chaque_dossier in les_dossiers
-- traitement d'un dossier
my inspecter(chaque_dossier)
end repeat
end tell
end inspecter
--return input
--end run
--on run {input, parameters}
tell application "Finder"
set chemin to (path to desktop folder) & "mesliens:" as string
set chemin to chemin as alias
my inspecter(chemin)
end tell
on inspecter(lechemin)
tell application "Finder"
-- traitement des fichiers :
set les_fichiers to files of lechemin
repeat with chaque_fichier in les_fichiers
-- traitement d'un fichier
tell application "Finder"
set lefichier to chaque_fichier
set extens to chaque_fichier
set lextension to name extension of extens
if lextension = "Webloc" then
open lefichier
end if
end tell
end repeat
-- traitement des dossiers :
set les_dossiers to folders of lechemin
repeat with chaque_dossier in les_dossiers
-- traitement d'un dossier
my inspecter(chaque_dossier)
end repeat
end tell
end inspecter
--return input
--end run