[COLOR=#000000][FONT=Verdana][B]on[/B] [/FONT][/COLOR][COLOR=#0433FF][FONT=Verdana][B]open [/B][/FONT][/COLOR][COLOR=#4F8F00][FONT=Verdana]theFiles
[/FONT][/COLOR][COLOR=#4F8F00][FONT=Verdana][COLOR=#000000] [/COLOR]shortenFileNames[COLOR=#000000]([/COLOR]theFiles[COLOR=#000000])[/COLOR][/FONT][/COLOR]
[FONT=Verdana][B]end[/B] [COLOR=#0433ff][B]open[/B][/COLOR][/FONT]
[FONT=Verdana]
[/FONT]
[FONT=Verdana][B]on[/B] [COLOR=#0433ff][B]run[/B][/COLOR][/FONT]
[COLOR=#012FBE][FONT=Verdana][COLOR=#000000] [B]set[/B] [/COLOR][COLOR=#4f8f00]theFiles[/COLOR][COLOR=#000000] [B]to[/B] [/COLOR][B]choose file[/B][COLOR=#000000] [B]with[/B] [/COLOR]multiple selections allowed[/FONT][/COLOR]
[COLOR=#4F8F00][FONT=Verdana][COLOR=#000000] [/COLOR]shortenFileNames[COLOR=#000000]([/COLOR]theFiles[COLOR=#000000])[/COLOR][/FONT][/COLOR]
[FONT=Verdana][B]end[/B] [COLOR=#0433ff][B]run[/B][/COLOR][/FONT]
[FONT=Verdana]
[/FONT]
[COLOR=#4F8F00][FONT=Verdana][COLOR=#000000][B]on[/B] [/COLOR]shortenFileNames[COLOR=#000000]([/COLOR]theFiles[COLOR=#000000])[/COLOR][/FONT][/COLOR]
[FONT=Verdana] [B]tell[/B] [COLOR=#0433ff][I]application[/I][/COLOR] "Finder"[/FONT]
[FONT=Verdana] [B]repeat[/B] [B]with[/B] [COLOR=#4f8f00]aFile[/COLOR] [B]in[/B] [COLOR=#4f8f00]theFiles[/COLOR][/FONT]
[FONT=Verdana] [B]set[/B] [COLOR=#4f8f00]extLength[/COLOR] [B]to[/B] [COLOR=#0433ff][B]count[/B][/COLOR] ([COLOR=#0433ff][I]text items[/I][/COLOR] [B]of[/B] ([COLOR=#812fdc]name extension[/COLOR] [B]of[/B] [COLOR=#4f8f00]aFile[/COLOR] [B]as[/B] [COLOR=#0433ff][I]string[/I][/COLOR]))[/FONT]
[FONT=Verdana] [B]set[/B] [COLOR=#4f8f00]nameLength[/COLOR] [B]to[/B] [COLOR=#0433ff][B]count[/B][/COLOR] ([COLOR=#0433ff][I]text items[/I][/COLOR] [B]of[/B] ([COLOR=#812fdc]name[/COLOR] [B]of[/B] [COLOR=#4f8f00]aFile[/COLOR] [B]as[/B] [COLOR=#0433ff][I]string[/I][/COLOR]))[/FONT]
[COLOR=#4F8F00][FONT=Verdana][COLOR=#000000] [B]if[/B] [/COLOR]nameLength[COLOR=#000000] - [/COLOR]extLength[COLOR=#000000] > 4 [B]then[/B][/COLOR][/FONT][/COLOR]
[FONT=Verdana] [B]set[/B] [COLOR=#812fdc]name[/COLOR] [B]of[/B] [COLOR=#4f8f00]aFile[/COLOR] [B]to[/B] ([COLOR=#0433ff][I]text items[/I][/COLOR] 4 [B]thru[/B] -1 [B]of[/B] ([COLOR=#812fdc]name[/COLOR] [B]of[/B] [COLOR=#4f8f00]aFile[/COLOR] [B]as[/B] [COLOR=#0433ff][I]string[/I][/COLOR]) [B]as[/B] [COLOR=#0433ff][I]string[/I][/COLOR])[/FONT]
[FONT=Verdana] [B]end[/B] [B]if[/B][/FONT]
[FONT=Verdana] [B]end[/B] [B]repeat[/B][/FONT]
[FONT=Verdana] [B]end[/B] [B]tell[/B][/FONT]
[COLOR=#000000][FONT=Verdana][B]end[/B] [/FONT][/COLOR][COLOR=#4F8F00][FONT=Verdana]shortenFileNames[/FONT][/COLOR]