Vbs выбор файла через диалоговое окно
Привет всем, нужна ваша помощь.
Нужен скрипт который бы открывал окно для выбора файла При выборе файла скрипт должен сохранить текущий путь в текстовый файл. Я вам ниже дал скрипт, который должен открывать окно для выбора файла, но он выдаёт ошибку(не работает). Помогите переделать скрипт.
В каком окружении исполняется скрипт?
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.
Поясните пожалуйста что это такое? Ошибка на скрине.
Мне нужен скрипт типа обзора файлов. Скрипт будет запускаться bat-ником. После этого должно открыться стандартное окно поиска файлов для rar-архивов. После выбора файла окно закрывается и рядом со скриптом генерируется текстовый файл, в котором сохраняется полный путь к указанному файлу.
Можно было просто нажать Ctrl-C в этом диалоге.
Можете попробовать рецепты отсюда: vbscript : вызов интерактивного диалога открытия файла — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум. » |
Данный рецепт взял я именно от туда, 2 других рецепта тоже не работают.
Конфигурация компьютера | |
Процессор: Intel Core i7-3770K | |
Материнская плата: ASUS P8Z77-V LE PLUS | |
Память: Crucial Ballistix Tactical Tracer DDR3-1600 16 Гб (2 x 8 Гб) | |
HDD: Samsung SSD 850 PRO 256 Гб, WD Green WD20EZRX 2 Тб | |
Видеокарта: ASUS ROG-STRIX-GTX1080-O8G-11GBPS | |
Звук: Realtek ALC889 HD Audio | |
Блок питания: be quiet! Straight Power 11 650W | |
CD/DVD: ASUS DRW-24B5ST | |
Монитор: ASUS VG248QE 24" | |
ОС: Windows 8.1 Pro x64 | |
Индекс производительности Windows: 8,1 | |
Прочее: корпус: Fractal Design Define R4 |
почему не подходит Powershell ?
Function Get-FileName($initialDirectory)
<
[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") |
Out-Null
$OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
$OpenFileDialog.initialDirectory = $initialDirectory
$OpenFileDialog.filter = "All files (*.*)| *.*"
$OpenFileDialog.ShowDialog() | Out-Null
$OpenFileDialog.filename
>
Последний раз редактировалось Serguei Kouzmine, 19-12-2016 в 04:33 . Причина: формат
Это работает в Windows XP и выше и обеспечивает выбор единственного файла (без множественного выбора файлов). Это диалоговое окно открытия файла фактически используется в апплете панели управления "Учетные записи пользователей" (C:\WINDOWS\system32\nusrmgr.cpl). Вы можете задать фильтры по расширениям файлов (свойство Filter), выбрать фильтр по умолчанию (свойство FilterIndex), задать начальный каталог (свойство InitialDir).
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
2 Ответ от The gray Cardinal 2006-07-19 22:51:50
- The gray Cardinal
- Разработчик
- Неактивен
Другой способ выбора файла: библиотека C:\WINDOWS\system32\safrcdlg.dll предоставляет объект "SAFRCFileDlg.FileOpen". Здесь нет практически никаких настроек. Это работает в Windows XP и выше.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
3 Ответ от mozers 2007-11-30 11:02:35 (изменено: mozers, 2007-12-01 00:41:02)
- mozers
- Разработчик
- Неактивен
Еще один вариант (работает под любой виндой):
P.S.При возникновении проблем с лицензированием, ответ подскажет Google
4 Ответ от The gray Cardinal 2007-11-30 22:35:50
- The gray Cardinal
- Разработчик
- Неактивен
Можно вызвать диалог выбора файла, используя ActiveX-объект "InternetExplorer.Application": создаём страницу с элементом FileUpload () и вызываем его метод click(), что в случае IE имитирует щелчок по кнопке "Обзор":
Окошко минимизируем, но делаем видимым, т.к. иначе, если будут открыты другие окна IE, диалог будет выводится под ними и о его существовани нельзя будет догадаться; а так он будет либо сам выводится на переднем плане, либо на панели задач будет мигатющая кнопка, позволяющая переключится на него.
Автор примера - wisgest.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
5 Ответ от The gray Cardinal 2007-12-13 22:35:38
- The gray Cardinal
- Разработчик
- Неактивен
Пример опубликовал Large Null.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
6 Ответ от The gray Cardinal 2009-02-28 13:25:51
- The gray Cardinal
- Разработчик
- Неактивен
Бесплатный COM-сервер JSDlgBox.dll предоставляет упрощённые методы для вывода окон выбора и сохранения файлов, а также окон выбора цвета. Методы не имеют никаких параметров. Дистрибутив (архив) компонента имеет размер чуть более 10 Кб. Пример:
Похожие методы предоставляет бесплатный компонент JSForm.dll.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
7 Ответ от The gray Cardinal 2009-02-28 14:52:10
- The gray Cardinal
- Разработчик
- Неактивен
Бесплатный COM-сервер JSSys3.dll предоставляет методы для вывода окон выбора файлов (в т.ч. нескольких), для сохранения файла, для вывода окон выбора цвета, выбора папки. Пример:
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
8 Ответ от wisgest 2020-11-10 03:14:01 (изменено: wisgest, 2020-11-10 03:41:45)
- wisgest
- Разработчик
- Неактивен
Проверил работоcпособность совместно с IE11 моего решения 2007 года: оказалось, каталог в пути к выбранному файлу подменяется на C:\fakepath\ (подобное поведение, по-видимому, имеет место и в немного более ранних выпусках IE).
Но всё работает как надо, если заменить
Также у меня имеются подозрения, что (в зависимости от настроек IE) запрос "http:///" может вызвать то ли открытие сетевого подключения, то ли выход из автономного режима просмотра — что-то подобное я обнаружил около того же 2007 года.
Можно, конечно, явно указать запрос к ресурсам, но если не таскать рядом со сценарием заранее подготовленного файла с ресурсами, то его может не оказаться (например, с IE6 нет ieframe.dll).
А что, если попробовать
(Предполагаю, что поколдовав с настройками безопасности, можно всё-таки заставить работать с последними выпусками IE и "about:blank" и, наоборот, испортить "res://"…)
В этом начальном уроке, мы изучим синтаксис vbscript языка. Синтаксис языка vbscript является таким же как и в языке Visual Basic и фактически, является подмножеством данного языка программирования. Основной упор в использовании vbscript – это возможность написания сценариев (расширение vbs) с открытым кодом для платформы Windows. Пользователю не нужно прибегать к установке дополнительного программного обеспечения, так как все сценарии выполняются под управлением сервера сценариев Windows Script Host.
И так, давайте рассмотрим базовый синтаксис vbscipt и его возможности.
- Комментарии – для комментирования строк кода можно использовать ключевое слово REM , или одинарную кавычку (').
- Строки кода – что бы произвести перенос одной строки на несколько, используется символ подчёркивания.
- Переменные – для объявления переменных используется ключевое слово Dim . Более детально, работу с ними я рассмотрел в статье "Урок 2 по VBScript: Переменные"
Можно прописать несколько операторов в одну строчку, для этого используется знак двоеточия (:). Сам язык нечувствителен к регистру символов.
Хорошо, давайте рассмотрим синтаксис языка vbscript на таком примере:
'**************************************** REM Общий синтаксис vbscript REM primer_1.vbs '**************************************** dim a, b, c a = "строка" b = 100 c = 22.5 MsgBox a:MsgBox b:MsgBox c
Видим, что тут, мы вначале прописали комментарии, далее объявили три переменные. Как видим, язык vbscript не требует назначения типа данных (более детально, работу с типами данных я рассмотрел в статье – "Урок 3 по VBScript: Типы данных"). В конце, для вывода данных мы использовали функцию MsgBox, в данном случае она прописана в упрощенном варианте. Давайте рассмотрим ее полный синтаксис:
MsgBox(prompt[, buttons] [, title ][, helpfile, context ] ) – видим, что тут, функции передаются пять параметров, последние два мы рассматривать не будет, так как они не являются актуальными и практически не применяются.
Работу с данной функцией я более детально рассмотрел в статье "Создание диалоговых окон".
Язык vbscript предоставляют также функции для работы со строками и датой, а также, ряд математических функций.
Конечно, синтаксис vbscript позволяет пользователю создавать собственные процедуры и функции. Для определения процедуры, т. е. подпрограммы, которая не возвращает никакого значения, в VBScript используется конструкция Sub . End Sub. После ключевого слова Sub идёт имя процедуры, а в круглых скобках указывается список её параметров, например:
Sub MyProcedure(Param1, Param2)
Строки кода
End Sub
Если процедура не имеет параметров, то в скобках после имени ничего указывать не нужно:
Sub MyProcedure()
…
End Sub
Вызывать процедуру из сценария можно двумя способами. Во-первых, можно просто написать имя и указать через пробел список передаваемых параметров, например: MyProcedure 3,10. Во-вторых, можно использовать специальный оператор Call , при этом список параметров обязательно должен быть заключен в круглые скобки: Call MyProcedure(3,10) .
Для определения функции, т. е. подпрограммы, которая возвращает определенное значение, применяется конструкция Function . End Function. Как и при описании процедур, после названия функции в круглых скобках указывается список её параметров, например:
Function MyFunction(Param1, Param2) … End Function
Для того чтобы возвратить из функции какое-либо значение, нужно внутри неё присвоить это значение переменной, название которой совпадает с именем функции:
Function MyFunction(Param1, Param2)
Dim Sum
Sum = Paraml+Param2
MyFunction = Sum
End Function
Если возвращаемое функцией значение не нужно присваивать никакой переменной, то функция вызывается так же, как и процедура — пишется имя этой функции и через пробел указывается список ее аргументов: MyFunction 3,5
Если же необходимо записать значение в какую-либо переменную, то аргументы функции заключаются в круглые скобки.
Вот простой пример синтаксиса vbscript для использования собственных процедур и функций:
'**************************************** REM Общий синтаксис vbscript REM primer_2.vbs '**************************************** dim a, b, c ' пользовательская функция Function my_fun(a, b) Dim Summ Summ = a+b my_fun = Summ End Function ' пользовательская процедура Sub my_sub(a, b) Dim Summ Summ = a+b MsgBox Summ End Sub MsgBox my_fun(5,10) Call my_sub(100,200)
Помимо процедур и функций, можно создавать собственные массивы (Урок 9 по VBScript: Массивы) и классы (Урок 8 по VBScript: Объекты и классы)
Ну что же, вдобавок, хотелось бы упомянуть две очень полезные функции:
Смотрим на третий пример:
'**************************************** REM Общий синтаксис vbscript REM primer_3.vbs '**************************************** dim my_var my_var = 200 MsgBox Hex(my_var):MsgBox Oct(my_var)
Спасибо за внимание. Автор блога Владимир Баталий
Привет всем, нужна ваша помощь.
Нужен скрипт который бы открывал окно для выбора файла При выборе файла скрипт должен сохранить текущий путь в текстовый файл. Я вам ниже дал скрипт, который должен открывать окно для выбора файла, но он выдаёт ошибку(не работает). Помогите переделать скрипт.
В каком окружении исполняется скрипт?
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.
Поясните пожалуйста что это такое? Ошибка на скрине.
Мне нужен скрипт типа обзора файлов. Скрипт будет запускаться bat-ником. После этого должно открыться стандартное окно поиска файлов для rar-архивов. После выбора файла окно закрывается и рядом со скриптом генерируется текстовый файл, в котором сохраняется полный путь к указанному файлу.
Можно было просто нажать Ctrl-C в этом диалоге.
Можете попробовать рецепты отсюда: vbscript : вызов интерактивного диалога открытия файла — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум. » |
Данный рецепт взял я именно от туда, 2 других рецепта тоже не работают.
Конфигурация компьютера | |
Процессор: Intel Core i7-3770K | |
Материнская плата: ASUS P8Z77-V LE PLUS | |
Память: Crucial Ballistix Tactical Tracer DDR3-1600 16 Гб (2 x 8 Гб) | |
HDD: Samsung SSD 850 PRO 256 Гб, WD Green WD20EZRX 2 Тб | |
Видеокарта: ASUS ROG-STRIX-GTX1080-O8G-11GBPS | |
Звук: Realtek ALC889 HD Audio | |
Блок питания: be quiet! Straight Power 11 650W | |
CD/DVD: ASUS DRW-24B5ST | |
Монитор: ASUS VG248QE 24" | |
ОС: Windows 8.1 Pro x64 | |
Индекс производительности Windows: 8,1 | |
Прочее: корпус: Fractal Design Define R4 |
почему не подходит Powershell ?
Function Get-FileName($initialDirectory)
<
[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") |
Out-Null
$OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
$OpenFileDialog.initialDirectory = $initialDirectory
$OpenFileDialog.filter = "All files (*.*)| *.*"
$OpenFileDialog.ShowDialog() | Out-Null
$OpenFileDialog.filename
>
Последний раз редактировалось Serguei Kouzmine, 19-12-2016 в 04:33 . Причина: формат
В данной статье я решил рассмотреть способы создания диалогового окна базовыми способами – средствами Windows Script Host. В частности рассмотрены методы: BrowseForFolder, InputBox, Echo, MsgBox и Popup.
И так, приступим
BrowseForFolder
Создание диалогового окна для выбора папок и даже файлов осуществляется с помощью метода BrowseForFolder, что бы его использовать, надо прежде создать экземпляр объекта Application. Стоит взять на заметку, что поддержку осуществляет функция из библиотеки Shdocvw.dll, которая входит в состав Internet Explorer версий 4 и 5.
Также понадобится библиотека Shell32.dll версии 4.71 и выше, доступная в Windows 98 (версия 4.72) и Windows 2000 (версия 5). В Windows 95/NT 4 библиотека Shell32.dll версии 4.71 доступна, если установлен Internet Explorer 4 с обновлением Active Desktop. При установке Internet Explorer 5 в Windows 95/NT обновления Shell32.dll не происходит. Следует сначала установить Internet Explorer 4 с обновлением Active Desktop, а затем уже Internet Explorer 5.
Давайте создадим экземпляр объекта Shell.Application и посмотрим на синтаксис:
Set objDig = WScript.CreateObject("Shell.Application") Set objF = objDig.BrowseForFolder(hWnd, Titl, Options[, Root])
Рассмотрим описание параметров:
hWnd - передает создаваемому диалоговому окну описатель окна, он всегда должен быть равен 0, поскольку у сценария нет описателя.
Titl - задает строку, которая выводится в созданном диалоговом окне ниже заголовка.
Options - представляет собой 32-разрядный флаг, который задает внутренние свойства диалогового окна. Некоторые константы можно комбинировать (например, &Н0010 и &Н0001).
Root – необязательный, позволяет заранее выбрать папку. Путь может быть задан в виде строки (например, D:\Data) или с помощью одного из значений, которые позволяют использовать специальную папку в пространстве имен оболочки. Список значений также описано в шпаргалке.
Давайте рассмотрим пример на VBScript для выбора каталогов:
' *********************************************************** ' BrowseForFolder_folders.vbs ' Создание диалогового окна выбора каталога на VBScript ' *********************************************************** Option Explicit ' Флаги Const BIF_returnonlyfsdirs = &H0001 Const BIF_editbox = &H0010 Dim wsh, objDlg, objF ' Получить объект Application оболочки Windows. Set objDlg = WScript.CreateObject("Shell.Application") Set objF = objDlg.BrowseForFolder (&H0, _ "Выберите каталог для копирования", BIF_editbox + BIF_returnonlyfsdirs) ' Проверка условия If isValue(objF) Then MsgBox "Выбрано: " & objF.Title Else MsgBox "Отменено" End If Function IsValue(obj) ' Проверить, вернул ли метод какое-либо значение. Dim tmp On Error Resume Next tmp = "" & obj If Err <> 0 Then IsValue = False Else IsValue = True End If On Error GoTo 0 End Function
Теперь рассмотрим пример на VBScript для выбора файлов:
InputBox
Теперь давайте рассмотрим функцию InputBox, которая позволяет получить информации от пользователя. Стоит упомянуть, что функция InputBox поддерживается только языком VBScript. Давайте посмотрим на ее общий синтаксис:
result = InputBox(текст[, [заголовок], [умолчание], [поз-Х], [поз-У]])
Описание ключей таковы.
Есть еще два необязательных ключа helpflle и context, с их помощью можно создавать встроенную справку, хотя, как правило, в данном контексте в этом нет необходимости.
Если необязательный ключ не задан, VBScript использует значение по умолчанию. Чтобы опустить необязательный параметр, надо оставить его место между двумя запятыми пустым:
InputBox("Привет", "Тест", , 100, 200)
В отличие от MsgBox ключа для кнопки у функции InputBox нет. Результат, возвращаемый InputBox при закрытии, зависит от того, какая кнопка была нажата: ОК возвращает содержимое текстового поля (т. е. данные, введенные пользователем), a Cancel отменяет результаты ввода и возвращает пустую строку. Переменная result позволяет проверить, ввел ли человек действительную информацию.
' *********************************************************** ' InputBox.vbs ' Создание диалогового окна для получение вводимой информации на VBScript '**************************************************************** Option Explicit Dim Message, result Dim Title, Text1, Text2 ' Определить переменные диалоговых окон. Message = "Диалоговое окно на VBScript" Title = "Создание пользовательского диалогового окна " Text1 = "Было нажато на отмену" Text2 = "Вы ввели:" & vbCrLf ' Все готово для использования функции InputBox; result = InputBox(Message, Title, "Ввод данных", 100, 100) ' Обработать введенную информацию. If result = "" Then ' Отмена WScript.Echo Text1 Else WScript.Echo Text2 & result End If
Echo
WScript.Echo " VBScript, vbYesNo ровно: ", vbYesNo
WScript.Echo ("Jscript, Math.E ровно: ", Math.E);
Как видим, все предельно просто, в кавычках мы прописали текст, а далее после запятой следовала константа, значение которой должно быть показано пользователю. Для перевода строки также надо использовать константы или ESC-последовательность:
WScript.Echo "Первая строка" & vbCrLf &"Вторая строка"
WScript.Echo ("Первая строка\n", "Вторая строка\n");
Тут, для JS мы взяли ESC-последовательность "\n" , а для VBS – vbCrLf константу.
MsgBox
MsgBox позволяет создавать диалоговое окно только сценариями языка VBS, в отличии от метода Echo она имеет в своем составе больший функционал – число кнопок, название окна, ну и, естественно, сам текст. Общий синтаксис таков:
MsgBox(prompt[,buttons][,title][,helpfile,context])
prompt – является обязательным и отвечает за текст, выводимый диалоговым окном
buttons – необязательный, целое число или константа (количество и тип кнопок, вид значка, установка фокуса)
title – также не является обязательным, определяет название окна
helpfile – задает путь к файлу-справке, файл-справка должен иметь расширение .hlp
context – число, которое задает раздел справки
Вот простой пример:
MsgBox "Пример с двумя кнопками", 1, "Пример работы"
Фактически, ключи для кнопок и заголовок можно опустить, тогда мы получим результат, идентичный Echo. С помощью констант можно задавать тип, фокус и количество кнопок. В добавок, вы можете определить и значок для создаваемого диалогового окна, то есть, вы вправе комбинировать константы, смотрим:
MsgBox "Как сделать вывод диалогового окна с двумя кнопками и значком", vbOkCancel+vbInformation, "Cкрипт"
Теперь давайте посмотрим, как работают два последних ключа helpfile и context, ведь с их помощью можно задать справку. Тут нам понадобится константа vbMsgBoxHelpButton, смотрим на код:
MsgBox "Как сделать пример диалогового окна со справкой", vbMsgBoxHelpButton, "Cкрипт", "filemon.hlp ", 1
Не знаю почему, но ничего не получилось, выбивает ошибку:
Раздел не существует. Обратитесь к поставщику продукта за обновленной версией файла справки. (129)
Возможно, есть некие подводные камни, Ну да ладно. Важно еще и то, что функция MsgBox возвращает результат, который можно присвоить переменной, с помощью него можно определить, на что нажал пользователь. Смотрим на код:
' *********************************************************** ' MsgBox.vbs ' Создание диалогового окна с помощью MsgBox '********************************************************************** Option Explicit Dim Result result = MsgBox("Определяем, на что было нажато", vbOkCancel+ vbInformation, "Заголовок") If result = vbOK Then WScript.Echo "Нажата клавиша ОК" Else WScript.Echo "Нажата клавиша Отмена" End If
Popup
Теперь давайте россмотрим пример, как осуществить создание диалогового окна используя метод Popup, который сам по себе не является частью языка сценариев. Он входит в состав объектной модели WSH и поддерживается объектом WshShell. По своим характеристикам, он является аналогом функции MsgBox. Прежде всего, в сценарии нужно создать экземпляр объекта WshShеll. Для этого можно применить функцию CreateObject. Давайте посмотрим, на начальные строки для будущих примеров.
И так, создаем экземпляр компонента:
var WshShell = WScript.CreateObject("WScript.Shell"); //JScript
Set WshShell = WScript.CreateObject("WScript.Shell") ' VBScript
Теперь мы сможем использовать переменную WshShеll для вызова функции Popup. Теперь давайте рассмотрим общий синтаксис:
WshShell.Popup (текст, таймаут, заголовок, кнопки);
Тут передаются следующие параметры:
Текст – собственно, тот текст, что надо вывести в диалоге. Тут можно использовать конкатенацию (объединение) констант, подстрок и переменных.
Таймаут – время, через которое будет закрыто пользовательское окошко, если от пользователя не поступят команды на закрытие. Для отключения тайм аута надо присвоить значение 0.
Заголовок – собственно, заголовок создаваемого окна.
Кнопки – тут используются константы, которые задают вид и количество кнопок.
Сам метод возвращает код кнопки, которой пользователь закрыл окно. Теперь давайте рассмотрим по одному примеру как создавать диалоговое окно для VBScript и Jscript синтаксиса.
// *********************************************************** // Pорup.js // Создание диалогового окна с помощью метода Pорup // ********************************************************* // Объявляем переменные для управления диалогом var vbOKCancel = 1; var vbOK = 1; var vbInformation = 64; var vbCancel = 2; var resultat; var Message = "Нажмите на клавишу"; var Title = "Работа с функцией Pоpup"; var WshShell = WScript.CreateObject("WScript.Shell"); // Выводим диалоговое окно resultat = WshShell.Popup(Message,0,Title, vbOKCancel + vbInformation); // Условие для проверки, на что нажал пользователь if (resultat == vbOK) < WScript.Echo ("Нажато на OK " +"(Код: " + resultat + ")"); >else < WScript.Echo ("Нажато на Отмена " + "(Код: " + resultat + ")"); >WScript.Echo("Выход из программы");
Ну и пример на VBScript:
' *********************************************************** ' Pорup.vbs ' Создание диалогового окна с помощью метода Pорup ' ************************************************************* Option Explicit Dim Message, Title, result, WShell Message = "Нажмите на кнопку" Title = "Работа с методом Poрuр" ' Создаем экземпляр объекта WshShell . Set WShell = WScript.CreateObject("WScript.Shell") ' Выводим диалоговое окно с помощью функции Poрuр, result = WShell.Popup(Message, 0, Title, vbOKCancel + vbInformation) ' Условие для проверки, на что нажал пользователь if (result = vbOK) then WScript.Echo "Кликнуто на OK " & "(Код: " & result & ")" else WScript.Echo "Кликнуто на Отмена " & "(Код: " & result & ")" End if WScript.Echo "Выход из программы"
Спасибо за внимание. Автор блога Владимир Баталий
Читайте также: