-------------------------------------------------------------------------------------------
property searchStrings : {"01 "} -- comma,apostrophe, space, Ampersand and double underscore
property replaceStrings : {""} -- underline, null, underline, _and_
on run
set chosenItem to choose file
open {chosenItem}
return
end run
on open (droppedItemList)
tell application "Finder"
repeat with theItem in droppedItemList
set new_item_name to change searchStrings into replaceStrings in (get name of theItem)
set new_item_name to lowercase new_item_name
set name of theItem to new_item_name
end repeat
end tell
end open
-------------------------------------------------------------------------------------------