LA_
|
Posted: Mon Apr 23, 2007 00:11 Post subject: |
|
|
спасибо!
но не работает так, как надо
исправил. теперь скрипт запускает процессинг файлов последовательно, а не одновременно (исправлены параметры команды Run - object.Run(strCommand, [intWindowStyle], [bWaitOnReturn]) , также исправлены параметры командной строки
Code: |
Dim FSO, WSH, TempFile
Set WSH = CreateObject("WScript.Shell")
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Set FSO = CreateObject("Scripting.FileSystemObject")
Exe = (chr(34) & "D:\Progs\VirtualDub\VirtualDub.exe" & chr(34))
Do While Not TempFile.AtEndOfStream
File = TempFile.ReadLine
Return = WSH.Run (Exe & " /s""D:\Progs\VirtualDub\conv760.vcf""" & " " & "/p""" & File & """,""" & File+"_mp4.avi""" & " " & "/r" & "/x", 1, true)
Loop
|
|
|