У меня есть большой VBScript, который открывает несколько диалоговых окон, которые собирают входные данные от пользователя, и в конце сценарий вызовет кучу скрытых функций сцены, которые обрабатывают данные.Поэтому я хотел бы улучшить пользовательский интерфейс этого сценария, где все эти диалоговые окна VBScript будут преобразованы в HMTL, где пользователь выбирает параметры на странице и в конце концов нажимает кнопку «Отправить» для функций за сценой, чтобы начать некоторую обработку данных.Например, некоторые из этих окон сообщений просят пользователя указать папку, в которой хранятся данные, следующий - как опции, которые пользователь хочет использовать (хотите ли вы использовать набор данных A, B или C и т. Д.).
Я думаю, что это, вероятно, будет работать только в IE (не уверен), но это нормально.ОС: Windows 7 & 10 - 64 бит.Ниже приведен пример кода, но, к сожалению, я не могу представить, что делают закулисные функции, потому что он конфиденциальный и не может быть открыт для общего доступа
'Force all variables to be explicitly defined prior to their usage
Option Explicit
'Declare the generic File System Object Variables
Dim objShell, objFSO
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Declare the File System Object Variables for the Input Browser & I/O Files
Dim objBrowse, objFolderInput, objFolderOutput, objFileInput, strInputName
Dim strStartingFolder : strStartingFolder = "C:\Files\Datasets"
'Open a browser window for the user to select the input file folder
Set objBrowse = objShell.BrowseForFolder(0, "Select Input Folder", 0, strStartingFolder)
If objBrowse Is Nothing Then
MsgBox "Process not run. No input folder was chosen."
WScript.Quit
End If
Set objFolderInput = objFSO.GetFolder(objBrowse.Self.Path)