Разархивирование из VBA

[Saladin]

Суть проблемы:
есть десяток-другой папок, с разным названием, содержащих архив (название архива в каждой из папок совпадает).
Как сделать разархивирование каждого из этих архивов в свою папку по нажатии некой кнопки в пользовательской форме.

(и уж заодно сразу - подскажите знающие люди pls как в vba вызвать служебную функцию сжать и воостановить бд)

[b00s]

Как сделать разархивирование

dim wshshell
Set wshshell = CreateObject("Wscript.Shell")
        wshshell.Run "WinRAR <команда> -<ключ> <файлы> <путь для извлечения>", 0, True
        Set wshshell = Nothing

в vba вызвать служебную функцию сжать и воостановить бд

DBEngine.CompactDatabase "база которую следует сжать","база которая получится после сжатия"

[Saladin]

замечательно, спасибо!!