Inserta en un Form 3 command, grabar stop y guardar
y acontinuacion el codigo en un modulo.
si te sirve, adaptalo a tus necesidades
Private Sub Command1_Click()
RECORD_Start 'REC
End Sub
Private Sub Command2_Click()
RECORD_Finish 'Stop
End Sub
Private Sub Command3_Click()
RECORD_Save ("C:\jlc.wav") 'Guardar
End Sub
INSERTA ESTE CODIGO EN UN MODULO
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'Envia los comandos al dispositivo MCI:
Private Sub SendCommand(Command As String, Optional ReturnString As String, Optional ReturnLength As Long)
If ReturnString = vbNullString Then ReturnString = 0
Call mciSendString(Command, ReturnString, ReturnLength, 0)
End Sub
'Empieza a grabar la entrada del Microfono:
Public Sub RECORD_Start()
On Local Error Resume Next
Call SendCommand("open new type waveaudio alias WavFile")
Call SendCommand("record WavFile insert")
End Sub
'Termina la grabacion de la entrada del Microfono:
Public Sub RECORD_Finish()
On Local Error Resume Next
Call SendCommand("stop WavFile wait")
End Sub
'Guarda en un fichero WAV la grabacion:
Public Sub RECORD_Save(Filename As String)
On Local Error Resume Next
Call SendCommand("save WavFile " & Filename)
Call SendCommand("close WavFile")
End Sub