I can get the names of all files in a folder by doing this:
tell application \"Finder\" set myFiles to name of every file of somePath end tell
Within a tell "Finder" block this collects file names stripped of the extension in myNames:
repeat with f in myFiles set myNames's end to ¬ (f's name as text)'s text 1 thru -(((f's name extension as text)'s length) + 2) end repeat