Foros del web, para los que viven de bits

Encoder = New WMEncoder

Dim SrcGrp As IWMEncSourceGroup2
Dim SrcAud As IWMEncAudioSource

Encoder.Load("C:\Documents and Settings\dfuentes.IARC\Escritorio\Archivos WME\Fuente78-1.wme")

        SrcGrp = Encoder.SourceGroupCollection.Item(0)

        SrcAud = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_AUDIO)

        If SrcGrp.SourceCount(WMENC_SOURCE_TYPE.WMENC_AUDIO) > 0 Then
            SrcAud = SrcGrp.Source(WMENC_SOURCE_TYPE.WMENC_AUDIO, 0)
        End If


        ' Identificar el archivo a codificar.
        SrcAud.SetInput("C:\\ArchivodeAudio.mp3")

        ' Definir un perfil
        Dim ProColl As IWMEncProfileCollection
        ProColl = Encoder.ProfileCollection
        Dim iLargo = ProColl.Count

        Dim Pro As IWMEncProfile
        Dim i As Integer

        For i = 0 To iLargo - 1
            Pro = ProColl.Item(i)
            If Pro.Name = Perfil.ToString Then
                SrcGrp.Profile = Pro
                Exit For
            End If
        Next

        Encoder.Start()