CIMLanguages.AddLanguage (method)

Adds a CIMLanguage to this collection.
Syntax: Set object = object.AddLanguage ( Name, LocaleID )
Parameters:
Name As String -
LocaleID As long -
Description: Adds a CIMLanguage to this collection. If the language already exists, this will change the LocaleID property of the existing language to the LocaleID passed. The name is case insensitive so "JPN", is the same as "jpn".

Example:

Sub AddLanguage_Example()
    
    Dim oLangMap As CIMLangMapper.CIMLangMap
    Dim oLangs As CIMLangMapper.CIMLanguages
    Dim oLang As CIMLangMapper.CIMLanguage
    
    Set oLangMap = CreateObject("CIMLangMapper.CIMLangMap")
    
    oLangMap.Load "c:\trans.clm"
    Set oLangs = oLangMap.Languages
    Set oLang = oLangs.AddLanguage("JPN", 1041)
    oLangMap.Save
    
End Sub
See Also: CIMLanguage , CIMLangMap.AddLanguage