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