纯vbs实现zip压缩与unzip解压缩函数代码

用VBS解压ZIP文件，网上搜到的多数是调用WinRAR，一点技术含量也没有。听说可以用纯vbs实现，特整理给大家，已经过测试。喜欢的朋友可以测试下。