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