Batya
|
 Posted: Mon Apr 04, 2005 14:58 Post subject: |
 |
|
Реализовал идею от Pusher - создайте *.vbs и повесьте на кнопку:
| Code: | 'Проигрывание\добавление отмеченных файлов в Winamp
'В параметрах необходимо прописать %L, если нужно добавить в список
'Если нужно заменить список, нужно указать любой второй параметр
Dim Winamp
Winamp = "d:\Program Files\Winamp5\winamp.exe" 'Путь к Winamp-у
Set objArgs = WScript.Arguments
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(objArgs(0), 1)
Set WS = CreateObject("WScript.Shell")
if objArgs.Count > 1 then
Str = TempFile.ReadLine
if Right(Str,1) = "\" then
Str = Left(Str, Len(Str) - 1)
end if
WS.run chr(34) & Winamp & chr(34) & " " & chr(34) & Str & chr(34)
end if
Do While Not TempFile.AtEndOfStream
Str = TempFile.ReadLine
if Right(Str,1) = "\" then
Str = Left(Str, Len(Str) - 1)
end if
WS.run chr(34) & Winamp & chr(34) & " /add " & chr(34) & Str & chr(34)
Loop |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
