Zip capability

From within a Blitz3D app I need to zipup a folder of files.

Is there any Blitz code that can do this (that produces a zip compatible with WinZip)?

I've searched the Tools and Code Archive sections, but no luck.