VBS/WSH/JS - [решено] аналог %~dp0 из bat для vbs

NLOLegion · Сообщение **NLOLegion** » 09 мар 2016, 13:01

Цитата NLOLegion:

как к этому решению

Там было решение задачи:

Цитата NLOLegion:

Как заменить %~dp0 в коде, чтобы скрипт работал из той папки, где был запущен, при условии, что батник в этой же папке?

VBS/WSH/JS - [решено] аналог %~dp0 из bat для vbs

А здесь что?

И как понять:

Цитата NLOLegion:

WshShell.Run chr(34) & "C:\A\0\1.bat" & Chr(34), 0

VBS/WSH/JS - [решено] аналог %~dp0 из bat для vbs

и:

Цитата NLOLegion:

ну конечно без надобности путь указывать - только название батника.

VBS/WSH/JS - [решено] аналог %~dp0 из bat для vbs

?!

NLOLegion · Сообщение **NLOLegion** » 04 янв 2020, 13:28

Iska, решение однозначно есть. Ваш код(пример ниже) работает!:

Код:

Код: Выделить всё

Option Explicit
Dim objFSO
Dim objWshShell
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run objWshShell.ExpandEnvironmentStrings("%comspec% /c """) & objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "1.bat") & """", 1, False
Set objWshShell = Nothing
Set objFSO      = Nothing
WScript.Quit 0

Дополнительный вопрос появился: как запускать батник(именно тот, что в этой же папке), чтобы окно консоли не появлялось?

Просто любой батник я запускаю кодом ниже указав до батника полный путь, а хочется скрестить оба скрипта, и понять как это делается(попытаться)

Код:

Код: Выделить всё

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\A\0\1.bat" & Chr(34), 0
Set WshShell = Nothing

Iska · Сообщение **Iska** » 05 янв 2020, 04:18

Цитата NLOLegion:

как запускать батник(именно тот, что в этой же папке), чтобы окно консоли не появлялось?

VBS/WSH/JS - [решено] аналог %~dp0 из bat для vbs

Указать вторым параметром 0 вместо 1:

Код:

Код: Выделить всё

objWshShell.Run objWshShell.ExpandEnvironmentStrings("%comspec% /c """) & objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "1.bat") & """", 0, False

3.4. Run

VBScript - Run Method (Windows Script Host)

(смотреть значения intWindowStyle в разделе Remarks)

Запуск внешних приложений из скрипта VBScript, применение объекта WshShell - AskIt.RU

.Run - VBScript - SS64.com

и т.д.