reg = CreateObject("wscript.shell")

shellCMD="d:\Progra~1\WinRar\winrar a -afzip -ep "+_pathZvit+"bu"+RIGHT(STR(rYear),2)+IIF(LEN(ALLTRIM(STR(rMonth)))=2,STR(rMonth,2),"0"+ALLTRIM(STR(rMonth)))+"43" +" "+_pathZvit+"*.dbf"

reg.Exec(shellCMD)

Это создание архива из групы таблиц в указаной директории(_pathZvit)
в названии которого присутствует месяц и год и внутрефирменный код района в котором находится наша фирма за который даются даные
конечный вид bu030943.zip и т.д.
Да путь к winrar нгадо указывать именно так как написано за исключением диска, т.к. это консольное приложение и путь типа
"C:\Program Files\WinRAR\WinRAR.exe"
не проходит. И ещё посмотри help по WinRAR (файл WinRAR.hlp )

У меня превосходно работает и нет обходимости а API.