в команде open или play у функции mciSendString
в пути файла не должно быть пробелов
вопрос: как это обойти?
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _
(ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, _
ByVal lBuffer As Long) As Long
'-----------------------------------------------------------------
Public Function GetShortPath(strFileName As String) As String
Dim strPath As String
strPath = Space(265)
GetShortPath = Left(strPath, GetShortPathName(strFileName, strPath, 264))
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5