iNNOKENTIY21
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
'Добавление cover в mkv файл
Sub FileExists(file)
If (NOT fso.FileExists(file)) Then
WScript.Echo file, " - не найден."
Call EndScript()
End If
End Sub
Function AddQuotes(str)
AddQuotes = """" & str & """"
End Function
Sub EndScript
If (NOT IsNull(fso)) Then Set fso = Nothing End If
If (NOT IsNull(objShell)) Then Set objShell = Nothing End If
WScript.Quit
End Sub
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim program
program = "C:\Program Files\MKVToolNix\mkvpropedit.exe"
Call FileExists(program)
Dim file
file = Wscript.Arguments(0)
Call FileExists(file)
Dim attachment
attachment = InputBox("Полный путь, без кавычек", "Добавление обложки")
If IsEmpty(attachment) Then Call EndScript() End If
Call FileExists(attachment)
file = AddQuotes(file)
program = AddQuotes(program)
attachment = AddQuotes(attachment)
Dim objShell
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run program & " " & file & " --attachment-name " & "cover" & " --add-attachment " & attachment, 0, true
Call EndScript()
|
