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

Skif_off

Posted: Fri Jun 30, 2023 16:22 Post subject:

Хотя оно вроде и так работает, но варианты с "H:" в Select смотрятся странно, можно просто опустить регистр, и повтор тоже, т.е. что-то типа

Code:

driveName = .GetDriveName(fileToOpen)
If LCase(driveName) = "h:" Then
runStr = """C:\Program Files\MPC-HC\mpc-hc64.exe""" & " """ & fileToOpen & """"
Else
runStr = "mpc-be64.exe" & " """ & fileToOpen & """"
End If
WScript.CreateObject("WScript.Shell").Run runStr, 1, False

(Я бы использовал полный путь и с MPC-BE.)