- StrCut >Ext< File_name Position_next File_name._,
  StrCut >File_name< File_name 1 Position_prev 
Where Position = StrPos( File_name, '.' ),
      Position_next = Position + 1,
      Position_prev = Position - 1