Не смейся
Я нахожусь в корпоративной среде с заблокированным рабочим столом. Установка сторонних приложений не вариант.
Блокнот в основном в порядке, но самая большая боль в том, что он не определяет, открыт ли уже файл. Я получаю правки в файлах в двух местах.
Итак, я подумал, что напишу немного VBS, чтобы проверить, может ли файл быть открыт, и вместо того, чтобы открыть его дважды, просто откройте окно подозрительного.
Dim Arg, var1
Set Arg = WScript.Arguments
'Parameter1, begin with index0
var1 = Arg(0)
set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
If Not oShell.AppActivate( fso.GetFileName(var1) + " - Notepad") Then
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Exec("notepad.exe " + var1 )
Set objShell = Nothing
End If
это прекрасно работает Но...
Я не могу установить VBS для цели меню "Открыть с помощью ...". Похоже, я могу сделать .bat, .cmd, .exe, .pif. Выбор «.vbs» вручную не работает. Он скажет, что файл .txt "не является допустимым приложением win32"
Как получить действие по умолчанию для открытия файла с помощью сценария VBS?