关于：Trueの话题！

用vbs实现zip功能的脚本

• 水眠乡 发布于 2008-02-22 14:39
• 收藏 解压缩 不成功 更改 压缩 增加 PK DeleteFilesTargetZIPFile True

压缩： FunctionfZip(sSourceFolder,sTargetZIPFile) 'ThisfunctionwilladdallofthefilesinasourcefoldertoaZIPfile 'usingWindows'nativefolderZIPcapability. DimoShellApp,oFSO,iErr,sErrSource,sErrDescription SetoShellApp=CreateObject("She..