VBS/WSH/JS

denis19 · Отправлено: **15:37, 08-06-2023** | #11

Цитата NickM:

Так Вы какое приложение пытаетесь запустить? »

В вопросе же есть. Блокноты, папки. Но вот сейчас мной доработанный с папками и прочими нормально, только exe не запускает.

NickM · Конфигурация компьютера

Цитата denis19:

папками »

Это не приложение.

Вам следует различать сущности;

Цитата denis19:

только exe не запускает. »

По какому пути находится приложение?

Не забывайте о возможных пробелах в пути и обрамляйте кавычками.

denis19 · Отправлено: **16:06, 08-06-2023** | #13

Цитата NickM:

По какому пути находится приложение? »

Глубоковато, там папка в папке. Но зато другое запускается. Я уже запутался, чего ему надо.
Там обычный способ копирование пути, пробелов не может быть. Всё просто, копируешь полный путь, кнопка в контекстном меню, нажимаешь скрипт и открывается программа, фото, папка, да хоть что, смотря что копировал, что в буфере в данный момент.

denis19 · Отправлено: **08:59, 10-06-2023** | #14

Цитата NickM:

Не забывайте о возможных пробелах в пути и обрамляйте кавычками. »

Я понял. Чтоб запускалось абсолютно всё, и как бы глубоко не находился файл в подпапках, то надо чтоб путь был в кавычках. Есть ли такой вариант чтоб запускалось без кавычек в пути?
clip = CreateObject("htmlfile").parentWindow.clipboardData.getData("Text")
Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run(clip)

Sham · Отправлено: **11:37, 10-06-2023** | #15

в кавычках это так примерно

Код:

clip = """" & clip & """"

Дублированные кавычки - это экранирование кавычки внутри строки. & - конкатенация строк.

denis19 · Отправлено: **16:38, 10-06-2023** | #16

Цитата Sham:

clip = """" & clip & """" »

Вот не знаю куда вставлять или заменять. Можно готовый пример скрипта?

Sham · Отправлено: **17:44, 10-06-2023** | #17

Код:

dim clip, fso
clip = CreateObject("htmlfile").parentWindow.clipboardData.getData("Text")
set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(clip) then call WSH.Echo("not a path:", clip) : WSH.Quit(1)
if InStr(clip, " ") then clip = """" & clip & """"
call CreateObject("WScript.Shell").Run(clip, 1, false)

если run с true, то скрипт не завершается сразу и ждёт закрытия дочернего процесса. false скрипт сразу выходит.