property ausgangsordnerIntellitune : "AZ_Bilder:I_PUNKT:Bildbearbeitung_IntelliTune:Bildausgang:" as alias 
 
-- als Beispiel 
set ListFiles to {"name01", "name02", "name03", "name04"} 
 
set allFiles to {} 
set countListFiles to count items of ListFiles 
repeat until allFiles contains items 1 thru countListFiles of ListFiles 
    set liste01 to (list files of ausgangsordnerIntellitune) 
    repeat with i from 1 to length of liste01 
         
        set AppleScript's text item delimiters to ":" 
        set nameandsuffix to text item -1 of (item i of liste01 as string) 
        set AppleScript's text item delimiters to "." 
        if (count of text items of nameandsuffix) > 2 then 
            set justName to text items 1 thru -2 of nameandsuffix as string 
        else 
            set justName to text item 1 of nameandsuffix 
        end if 
        set beginning of allFiles to justName 
    end repeat 
end repeat