applescript: max lengte aanpassen

Kent iemand een scriptje zodat de naam van n file ingekort word? vb als ik een file naar een map sleep dat die direct ingekort word tot een max aantal letters wel lastig als je via netwerk iets wilt versturen :s als er een tussen zit met zo'n lange naam is er al een fout -43 :x

alvast bedankt