如何了解winzip所安装的目录？

通过查询注册表就可以完成这个功能：

On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
strKey = "HKCR\WinZip\shell\open\command\"
strZipPath=WSHShell.regRead(strKey)
strZipPath=Left(strZipPath, Instr(strZipPath, " "))
WSHShell.popup strZipPath