can you post a function or procedure example to zip a file/files?