Single Post - Задачки на внутренние ассоциации

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Задачки на внутренние ассоциации

Author

Message

aLLigator

Posted: Tue Jun 27, 2023 14:45 Post subject:

Вроде получилось решить свою хотелку через скрипт, но поскольку я в них не сильно - имеются некоторые "излишества"

Code:

Sub OpenWith
With WScript.CreateObject("Scripting.FileSystemObject")
   If .FileExists(fileToOpen) Then
      driveName = .GetDriveName(fileToOpen)
      Select Case driveName
         Case "H:"
            runStr = """C:\Program Files\MPC-HC\mpc-hc64.exe""" & " """ & fileToOpen & """"
            WScript.CreateObject("WScript.Shell").Run runStr, 1, False
         Case "h:"
            runStr = """C:\Program Files\MPC-HC\mpc-hc64.exe""" & " """ & fileToOpen & """"
            WScript.CreateObject("WScript.Shell").Run runStr, 1, False
         Case Else
            runStr = "mpc-be64.exe" & " """ & fileToOpen & """"
            WScript.CreateObject("WScript.Shell").Run runStr, 1, False
      End Select
   Else
      WScript.Echo "Can't find [" & fileToOpen & "]."
      WScript.Quit 2
   End If
End With
End Sub

If WScript.Arguments.Count = 1 Then
fileToOpen = WScript.Arguments.Item(0)
call OpenWith()
Else
WScript.Echo "Usage:" & vbNewLine & WScript.ScriptName & " <fileName>"
WScript.Quit 1
End If

WScript.Quit 0

Оказалось что под разными версиями ОС букву диска воспринимает либо с большой (win11) либо с маленькой (win10).
Так же почему-то MPC-BE работает без указания полного пути, а вот MPC-HC только с полным да еще и с определенным количеством кавычек.

Буду благодарен если кто грамотный посмотрит и поправит скрипт, что бы стало совсем "комильфо".

P.S. Запуск скрипта, если что, у меня настроен через внутренние ассоциации

Code:

Filter38=*.avi
Filter38_open=%APPDATA%\GHISLER\MPC.vbs "%1"