Page 79 - 6735

Windows shell – це графічний інтерфейс користувача
операційної системи Windows. Для доступу до цього інтерфейсу з
VBA програми можна використовувати об’єкти бібліотеки Microsoft
Shell Controls And Automation. За допомогою цих об’єктів ви
можете отримати доступ до файлової системи, виконувати
програми, змінювати системні налаштування тощо. Для доступу до
бібліотеки виберіть в меню: Tools/References/Browse...
C:\WINDOWS\system32\SHELL32.dll.

Dim shl As Shell32.Shell 'об'єкт Shell

Public Sub main()
Set shl = CreateObject("Shell.Application") 'створити
об'єкт Shell
shl.ControlPanelItem "appwiz.cpl" 'відкрити "Установка і
видалення програм"
shl.Explore "c:\" 'відкрити Explorer
shl.Open "c:\windows" 'відкрити папку
shl.FileRun 'відкрити "Запуск програми"
Set Folder = shl.Namespace("d:\") 'створити об'єкт папка
d:\
Folder.CopyHere "c:\boot.ini" 'копіювати в d:\ файл
Set File = Folder.parsename("boot.ini") 'створити об'єкт
файл boot.ini
File.InvokeVerb "Open" 'відкрити файл
End Sub

Об’єктна модель Windows Script Host

Сервер сценаріїв Windows (Windows Script Host) – компонент
Windows, призначений для запуску програм мовами сценаріїв
(JScript, VBScript). Об’єктна модель Windows Script Host дозволяє
звертатись до сервера сценаріїв із метою виконання
адміністративних задач [19, 20]. Виберіть в меню
Tools/References/Browse... C:\WINDOWS\system32\wshom.ocx і
Windows Script Host Object Model.
79