もっとスマートな方法あるかもしれないけど、拡張子抜くのはこんな感じ

Case (
PatternCount ( ファイル名 ; "." ) = 0 ; ファイル名 ;
Right ( ファイル名 ; 1 ) = "." ; ファイル名 ;
Left ( ファイル名 ; Position ( ファイル名 ; "." ; 1 ; PatternCount ( ファイル名 ; "." ) ) -1 )
)