kadvlad
 
 
 
  | 
		
			
				 Posted: Fri Jun 13, 2008 01:30    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				Друзья, спасибо, почти получилось.
 
В скрипте поменял три строчки с false на true:
 
 
---------------------------------------------------------
 
Option Explicit 
 
Dim WshShell, FSO, sProg, objArgs, FileList, sFile, count, param, i 
 
 
Set objArgs = WScript.Arguments 
 
Set WshShell = WScript.CreateObject("WScript.Shell") 
 
sProg = WshShell.ExpandEnvironmentStrings(objArgs(0)) 
 
count = objArgs.Count 
 
If count < 2 Then 
 
   WshShell.Run """" & sProg & """", 1, True 
 
Else 
 
   param = "" 
 
   For i = 1 To count-2 
 
      param = param + " " + objArgs(i) 
 
   Next 
 
   Set FSO = CreateObject("Scripting.FileSystemObject") 
 
   Set FileList = FSO.OpenTextFile(objArgs(count-1), 1, False) 
 
   Do While Not FileList.AtEndOfStream 
 
      sFile = FileList.ReadLine 
 
      If Right(sFile,1) = "\" Then 
 
         WshShell.Run """" & sProg & """", 1, True 
 
         Exit Do 
 
      End If 
 
      WshShell.Run """" & sProg & """ " & param & " """ & sFile & """", 1, True 
 
   Loop 
 
End If 
 
WScript.Quit
 
-------------------------------------------------------
 
 
кнопка: 
 
--------------------------------------------------------
 
TOTALCMD#BAR#DATA
 
%COMMANDER_PATH%\Plugins\List2Multi.vbs "%ProgramFiles%\foobar2000\codecs\lame.exe" --quiet -b 128
 
%L
 
%ProgramFiles%\Totalcmd\totalcmd.exe,2
 
Lame
 
 
1
 
-1
 
--------------------------------------------------------
 
 
Однако остались ещё вопросы:
 
1. Не удается заставить работать свернутым/скрытым DOS-окно.
 
Кодековский аргумент --quiet (или --silent) не помогает.
 
 
2. Сконвертированные файлы помещаются в ту же диреторию, а к текущему расширению дописывается еще одно новое: "track.mp3.mp3"
 
 
Согласен, это наглядно, а можно ли прописать НЕ новое расширение, а префикс: _track.mp3 ?
 
Что-нибудь типа такого же батника:
 
 
@for %%I in (*.mp3) do lame.exe --quiet "%%~nxI"
 
 
Спасибо. | 
			 
		  |