Ладно, тогда ждать остальных не будем, добавил рекурсию.
Теперь тебе придётся опять параметры править.
LonerD писал(а):Каким образом "рисовать окно с кнопками Пассивная/Активная" и присваивать переменной определённое значение при нажатии на одну или вторую кнопку - пока не знаю.
WSO/HTA.
LonerD писал(а):"Enter Source File or Dir:" & vbNewLine &_
"1 - Source file in Target panel"
Вас-вас? Ихь ферштэе нихьт, ворюбэр гейт ди Рэдэ! Майн Копф эксплодирт!
vbNewLine меняй на L.
Да, и опциональный выбор сам по себе бестолковый. Просто сделай себе вывод в окне, да и всё, а последний параметр убери. Тебе-то зачем плодить то, чем ты не будешь пользоваться?
On Error Resume Next лишнее, и, коли используешь, обнулять нужно обязательно, иначе все ошибки в скрипте будут игнорироваться. И, конечно, лучше не выходить при ошибке ввода, а снова показывать то же окно:
Код: Выделить всё
Do Until Source = 1 Or Source = 2
Source = InputBox("Допустимые значения ввода:" &L&L& "1 (если источник в активной панели)" &L&L&_
"2 (если источник в пассивной панели)", " Присвоение даты и времени выбранным элементам")
If Trim(Source) = "" Then WScript.Quit
Loop
LonerD писал(а):Кстати, а если без Хэлпера, то можно ведь обойтись и nircmd. Прописать выполнение команды Nircmd sendkeypress tab
перед и после присвоения параметров.
Не понял, как относится эмуляция Tab (которую легко можно сделать штатными средствами) к возможности брать список пассивной панели. Параметры кнопки TC преобразуются ещё до запуска приложения. Так что бесполезно (уже много раз обсуждалось).
Зачем использовать некошерные упаковщики?
