Stroka="""C:\Program Files\WinRar\WinRar.exe"" x ""E:\У попа была собака\Поп её любил\Она съела кусок мяса\Поп её убил\Убил, закопал\И надпись написал\Ехала деревня мимо мужика, вдруг из-под собаки лают ворота, выбежала бабка с палкою в руке, начала дубасить коня на мужике.zip"" ""D:\_Удали это"""
Set WS = CreateObject("WScript.Shell")
R = WS.Run(Stroka, 1, True)
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.