Usar mciSendString (SAVE)
Publicado por Michael (2 intervenciones) el 15/12/2013 20:55:17
Alguien me puede ayudar con esto?
Trato de grabar audio y guardarlo en una ruta de sistema pero no me funciona....
Dim ruta_Guardar As String = Path.Combine(Application.StartupPath, "DATA_MC" & "\" & Audio & ".mp3")
Dim Cadena As String = "save recsound " & Comillas & ruta_Guardar & Comillas
MsgBox("La cadena es " + Cadena, MsgBoxStyle.Information)
mciSendString(Cadena, " ", 0, 0)
mciSendString("close recsound", "", 0, 0)
Trato de grabar audio y guardarlo en una ruta de sistema pero no me funciona....
Dim ruta_Guardar As String = Path.Combine(Application.StartupPath, "DATA_MC" & "\" & Audio & ".mp3")
Dim Cadena As String = "save recsound " & Comillas & ruta_Guardar & Comillas
MsgBox("La cadena es " + Cadena, MsgBoxStyle.Information)
mciSendString(Cadena, " ", 0, 0)
mciSendString("close recsound", "", 0, 0)
Valora esta pregunta


0