How do I get the contents of a string minus the extension in ColdFusion?

<cfset FileName = ListDeleteAt(FileFullName, ListLen(FileFullName, "."), ".")>

<cfset ExtensionIndex = ListLen(FileFullName, ".")>
<cfif ExtensionIndex gt 1>
  <cfset FileExt  = ListGetAt(ExtensionIndex , ".")>
  <cfset FileName = ListDeleteAt(FileFullName, ExtensionIndex, ".")>
<cfelse>
  <cfset FileExt  = "">
  <cfset FileName = FileFullName>
</cfif>

<cfset FileExtRe = "(?:.(?:doc|xls|ppt|jpg))?$">
<cfset FileName  = REReplaceNoCase(FileExtRe, FileFullName, "")>

fullFileName=listLast(fieldname,"/")

theFileName=listFirst(fullFileName,".")

fileName=reverse(listRest(reverse(fullFileName),"."))

fileName=listDeleteAt(fullFileName,listLen(fullFileName,"."),".")

<cfset FileName = rereplace( FullFileName , '.[^.]+$' , '' ) />

<cfset FileName = rereplace( FullFileName , '.(jpg|png|gif|bmp)$' , '' ) />
<cfset FileName = rereplace( FullFileName , '.[^.]{1,5}$' , '' ) />

<cfset Position = Find(".", Reverse(FullFileName))>

<cfset Filename = Left(FullFileName, Len(FullFileName) - Position>