Копировать Обновить Создать VBScript - PullRequest
0 голосов
/ 06 августа 2009

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

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

»

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

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

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

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

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

"% allusersprofile% \ application ~ 1 \ avg8 \ update \ download"

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

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

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

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

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

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

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

Ответы [ 2 ]

0 голосов
/ 10 августа 2009

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

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

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

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

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

MsgBox strUSBDrive & "\Update"
0 голосов
/ 10 августа 2009

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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...