Binaryworld - GetMCIErrorString - Get a description of an MCI error ... [ VB -> Multimedia ]

Private Declare Function mciGetErrorString Lib "winmm" Alias _
  "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, _
  ByVal uLength As Long) As Long

' Get the description of a MCI error.
'
' ErrorCode is the code of the error
' Return a string with the description of the error.

Function GetMCIErrorString(ErrorCode As Long) As String
  Dim buffer As String * 256
  mciGetErrorString ErrorCode, buffer, Len(buffer)
  GetMCIErrorString = Left$(buffer, InStr(buffer, vbNullChar) - 1)
End Function