mciSendString save wave file problem

[steve_rm]

ello,

VS 2008 SP1

I have a created a small application that records and plays audio. However, my application needs to save the wave file to the application data directory on the users computer.

The mciSendString takes a C style string as a parameter and has to be in 8.3 format. However, my problem is I can't get it to save. And what is strange is sometime it does and sometimes it doesn't. However, most of the time it failes. However, if I save directly to the C drive it works first time everything. I have used 3 different methods that I have coded below.

The error number that I get when it fails is 286."The file was not saved. Make sure your system has sufficient disk space or has an intact network connection"

Many thanks for any suggestions,

<DllImport("winmm.dll", CharSet := CharSet.Auto)> _
Private Shared Function mciSendString(<MarshalAs(UnmanagedType.LPTStr)> ByVal command As String, ByVal returnValue As StringBuilder, ByVal returnLength As Integer, ByVal winHandle As IntPtr) As UInteger
End Function

<DllImport("winmm.dll", CharSet := CharSet.Auto)> _
Private Shared Function mciGetErrorString(ByVal errorCode As UInteger, ByVal errorText As StringBuilder, ByVal errorTextSize As Integer) As Integer
End Function

<DllImport("Kernel32.dll", CharSet := CharSet.Auto)> _
Private Shared Function GetShortPathName(<MarshalAs(UnmanagedType.LPTStr)> ByVal longPath As String, <MarshalAs(UnmanagedType.LPTStr)> ByVal shortPath As StringBuilder, ByVal length As Integer) As Integer
End Function

 'Stop recording
Private Sub StopRecording()
    ' Save recorded voice
    Dim shortPath As String = Me.shortPathName()
    Dim formatShortPath As String = String.Format("save recsound ""{0}""", shortPath)
    Dim result As UInteger = 0
    Dim errorTest As New StringBuilder(256)
    
    ' C:\DOCUME~1\Steve\APPLIC~1\Test.wav
    ' Fails
    result = mciSendString(String.Format("{0}", formatShortPath), Nothing, 0, IntPtr.Zero)
    mciGetErrorString(result, errorTest, errorTest.Length)
    
    ' command line convention - fails
    result = mciSendString("save recsound ""C:\DOCUME~1\Steve\APPLIC~1\Test.wav""", Nothing, 0, IntPtr.Zero)
    mciGetErrorString(result, errorTest, errorTest.Length)
    
    ' 8.3 short format - fails
    result = mciSendString("save recsound C:\DOCUME~1\Steve\APPLIC~1\Test.wav", Nothing, 0, IntPtr.Zero)
    mciGetErrorString(result, errorTest, errorTest.Length)
    
    ' Save to C drive works everytime.
    result = mciSendString("save recsound C:\Test.wav", Nothing, 0, IntPtr.Zero)
    mciGetErrorString(result, errorTest, errorTest.Length)
    
    mciSendString("close recsound ", Nothing, 0, IntPtr.Zero)
End Sub

' Get the short path name so that the mciSendString can save the recorded wave file
Private Function shortPathName() As String
    Dim shortPath As String = String.Empty
    Dim length As Long = 0
    Dim buffer As New StringBuilder(256)
    
    ' Get the length of the path 
    length = GetShortPathName(Me.saveRecordingPath, buffer, 256)
    
    shortPath = buffer.ToString()
    
    Return shortPath
End Function

[.paul.]

have a look at this thread. it might help.