appliZip = "C:\WinZip\winzip32.exe" 
aZipper=inputbox("nom complet du fichier à zipper ?","zipzip","c:\rien.mid")
zippe="c:\rien.zip"

Set sh = WScript.CreateObject("WScript.Shell") 
sh.Run(appliZip & " -a " & zippe & " " & aZipper)
set sh=nothing

Msgbox "le fichier " & aZipper & " a été zippé sous le nom " & zippe