Shared Function _ GetShortPathName(ByVal lpszLongPath As String, _ ByVal lpszShortPath As System.Text.StringBuilder, _ ByVal cchBuffer As Integer) As IntegerEnd Function' Play the audio track of an AVI file.' fileName is a string containing the full path of the file.'' Notes: requires the ExecuteMCICommand routineSub PlayAVIVideoOFF(ByVal fileName As String) Dim commandString As String Dim shortFileName As New System.Text.StringBuilder(260) ' retrieve the file name in the short format (8+3 chars) GetShortPathName(fileName, shortFileName, shortFileName.Capacity) fileName = shortFileName.ToString() ' open the device commandString = "Open " & fileName & " type avivideo alias AVIFile" ExecuteMCICommand(commandString, False) ' set video OFF commandString = "Set AVIFile video off" ExecuteMCICommand(commandString, True) ' play the file commandString = "Play AVIFile wait" ExecuteMCICommand(commandString, True) ' close the device commandString = "Close AVIFile" ExecuteMCICommand(commandString, True)End Sub

