Barus2010
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нашел вот такой скрипт
input = "d:\101\" 'папка input
output= "d:\102\" 'папка output
i=0
Dim WSHShell
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
RecursiveFolderScan input
Msgbox "ВСЕ! Обработано "& i &" файлов"
'Создаём процедуру рекурсивного обхода каталога
Sub RecursiveFolderScan(FolderPath)
'Получаем объектную модель текущего каталога
Set Folder = objFSO.GetFolder(FolderPath)
'Перебираем все файлы в текущем каталоге
For Each File in Folder.Files
WSHShell.Run """C:\Program Files (x86)\Avidemux 2.6 - 32 bits\avidemux.exe"" --force-alt-h264 --load """ & File & """ --audio-codec MP3 --audio-bitrate 96 --save """ & output & File.Name & """ --quit", 1, True
i=i+1 'счетчик файлов
Next
'Перебираем все подкаталоги в каталоге
For Each SubFolder in Folder.SubFolders
RecursiveFolderScan(SubFolder.Path)
Next
Set WSHShell = Nothing
End Sub
вот только битрейд не меняется на 96, остается стандартным 128,помогите как правильно команду прописать? |
