Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Автоматизация работы с VirtualDub 
Author Message
skole



PostPosted: Fri Apr 20, 2007 20:56    Post subject: Reply with quote

если я правильно разобрался с параметрами ком строки, то вот код на vbs
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")

Program_Files = WSH.ExpandEnvironmentStrings("%ProgramFiles%")
Exe = (chr(34) & Program_Files + "\VirtualDub\VirtualDub.exe" & chr(34))

Do While Not TempFile.AtEndOfStream
File = TempFile.ReadLine
WSH.Run Exe & "/s""D:\Progs\VirtualDub\conv760.vcf""" & " " & "/p" & File & "," & File+"_mp4.avi" & " " & "/r" & "/x"
Loop


в параметрах кнопки или строки запуска укажи "%L" именно в кавычках
View user's profile Send private message ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group