MsgBox UBound(UserSettingsLine) + 1

sLine = "1\2\3\4\5"
UserSettingsLine = Split(sLine,"\")
MsgBox UBound(UserSettingsLine) + 1

В данном случае будет «5» — т.е., с индексами от 0 до 4.

Давайте будем следовать правилам: «Один вопрос — одна тема», а не «Один автор — одна тема». Последний вопрос с данной темой никак не связан.

Тема одна и та же просто одно из другого вытекает. Я могу создать новую тему просто тут описана сама суть, а суть как раз-таки в запуске внешнего приложения. Это все делается только для того что б наконец-таки запустить корректно это приложение.

Я согласен что будет 5 от 0 до 4х, но ведь как определить это 5 а ведь может быть и 6 а может и десять для опроса массива необходимо знать размерность, а откуда его знать Split не выдает таких данных. Или применить Dictionary?

sLine = "1\2\3\4\5"
UserSettingsLine = Split(sLine,"\")
MsgBox UBound(UserSettingsLine) + 1

В данном случае будет «5» — т.е., с индексами от 0 до 4.

Давайте будем следовать правилам: «Один вопрос — одна тема», а не «Один автор — одна тема». Последний вопрос с данной темой никак не связан.

Ну и вопросик:
UserSettingsLine = Split(sLine,"\") как определить размер массива UserSettingsLine ?

А как использовать WScript.Echo в HTA ?????

Напрямую — никак. prompt, alert, MsgBox.

sLine = "D:\\OSR\\sign_s\\"
UserSettingsLine = Split(sLine,"\")
MsgBox UserSettingsLine(0)
MsgBox UserSettingsLine(1)
MsgBox UserSettingsLine(2)

Ну и смысл понятен я думаю.
Спасибо всем кто помог в данном разделе у меня не осталось вопросов.

strPath = "D:\OSR\sign_s\qwerty.exe"
WScript.Echo Replace(strPath, "\", "\\")

MsgBox chr(34)

Var_1 = "D:\\OSR\\sign_s\\qwerty.exe"
Var_2 = "F:\\" &"s9001218.rtf"
Var_0 = Var_1 &" " &"/p" &" " &Var_2

MsgBox Var_0
Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run (Var_0,0,True)
MsgBox "Обработка завершена! Код возврата - " & RetCode

Ваше решение так же учту спасибо всем за помощь.

Почему используют 2 слеша ? А с одним ничего не получается.

RetCode = WshShell.Run("var_1 /p var_2", 1, True)

Вы понимаете, что всё, что в кавычках, есть просто текст? >>

RetCode = WshShell.Run(var_1 & " /p " & var_2, 1, True)

Имя файла специально сделал с вопросиком так как бывают такие файлы попадаются

Файлов «с вопросиком» не бывает — это запрещённый символ в именах файлов/папок. У Вас имя с разрешённым символом — восклицательным знаком.

Я полностью с Вами согласен, но в жизни пользователи какие только имена не придумывают и какие символы только не используют. Может как-то можно произвести проверку на эти символы прежде чем они попадут в код обработки?

Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("""D:\OSR\qwerty.exe"" /p C:\s9001218.rtf", 1, True) 
MsgBox "Обработка завершена! Код возврата - " & RetCode

Но когда начинаем использовать переменные подстановки все не работает:

RetCode = QwertyCheck
MsgBox "Код проверки = " &RetCode

Function QwertyCheck()
dim var_1, var_2
var_1 = "D:\OSR\qwerty.exe"
var_2 = "C:\s9001218.rtf"
MsgBox var_2 & " " &var_1
Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("var_1 /p var_2", 1, True) 
MsgBox "Код проверки = " & RetCode
SbersignCheck = RetCode
End Function

Какую я допустил ошибку ?

Да вы батенька юморист.

RetCode = WshShell.Run("var_1 /p var_2", 1, True) 

Должно быть как и строчкой выше

RetCode = WshShell.Run(var_1 & " /p " & var_2, 1, True) 

И вот здесь

var_1 = "D:\DATA\D\Server\D\SERVER\QwertyCheck.exe"

"D\SERVER" - так и должно быть задвоено?

Это всего лишь пути размещения модулей если Вас смущает могу переписать все на другие пути, но суть вопроса не меняется от этого.