Копировать обновление Создать VBScript

Question

Пожалуйста, помогите мне добиться следующего с помощью VBScript

1.Messagebox с тремя вкладками Copy,Update,Cancel и отображением "Welcome to AVG"

определение копирует / обновляет модуль. Нажмите "Копировать" для копирования файлов или "Обновить" для обновления

файлы определений.

2. Если выбрана копия, буква диска, с которой запускается скрипт (USB-диск), сохраняется как

переменная, каталог "(usb drive)Update" создан, если не существует, новый и файлы не существуют

в папке обновления, скопированной в (например, =xcopy /d), из

"% ALLUSERSPROFILE%\ прилож ~1\ AVG8 \Update \ скачать"

3. Если возможно отображать сообщение 'копирование файлов при копировании. После завершения

Копирование экрана "Файлы успешно скопированы".

4. Если выбрано обновление, папка "c: \Update" создается, если она не существует, новых и файлов нет

существует в "c: \Update", скопированном из папки обновлений (USB-диск)

5.Если возможно копировать сообщение "Обновление файлов" при копировании. После завершения

обновлении, отобразите "Файлы успешно обновлены". После нажатия кнопки "ОК" выйдите и запустите

"C:\ PROGRA ~1\ ср \ AVG8\avgui.exe"

Answer 1

В общем, я бы сделал отдельные функции для каждой из функциональных задач, которые у вас есть, затем оберните эти функции внутри HTA, чтобы получить нужный вам интерфейсный уровень.

Answer 2

Как я понял из вашего другого вопроса, вам удалось найти решение большинства из этих задач самостоятельно. Вот подсказка для вашего #2, которую я не заметил в этом сценарии.

2. Если выбрана копия, буква диска, с которой запускается скрипт (диск usb), сохраняется как переменная

Вы можете получить полный путь к текущему файлу скрипта, используя WScript.ScriptFullName свойство, а затем использовать FileSystemObject.GetDriveName способ извлечь букву диска:

Set objFSO = CreateObject("Scripting.FileSystemObject")
strUSBDrive = objFSO.GetDriveName(WScript.ScriptFullName)

Это даст вам букву диска, за которой следует двоеточие (например, J:). Затем вы можете объединить это значение с именем целевой папки, чтобы получить полный путь, например:

MsgBox strUSBDrive & "\Update"