'Проигрывание\добавление отмеченных файлов в Winamp
'В параметрах необходимо прописать "%WL", если нужно проиграть список
'Если нужно добавить файлы в плейлист, нужно указать любой второй параметр
Winamp = "Winamp.exe" 'Путь к Winamp-у
PlayContent = ""
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1, false, -1)
Do While Not TempFile.AtEndOfStream
Str = TempFile.ReadLine
if Right(Str,1) = "\" then
Str = Left(Str, Len(Str) - 1)
end if
PlayContent = PlayContent & Str & Chr(10)
Loop
TempFile.Close
Set TempFile = Nothing
PlaylistName = WScript.Arguments(0) & ".m3u8"
Set OutputStream = CreateObject("ADODB.Stream")
OutputStream.CharSet = "utf-8"
OutputStream.Mode = 3
OutputStream.Open
OutputStream.WriteText PlayContent
OutputStream.SaveToFile(PlaylistName), 2
OutputStream.Close
Set OutputStream = Nothing
Set WS = CreateObject("WScript.Shell")
if WScript.Arguments.Count > 1 then
WS.run chr(34) & Winamp & chr(34) & " /add " & chr(34) & PlaylistName & chr(34)
else
WS.run chr(34) & Winamp & chr(34) & " " & chr(34) & PlaylistName & chr(34)
end if |