
--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 
	