-
水眠乡
发布于 2008-02-22 14:39
-
收藏
压缩: FunctionfZip(sSourceFolder,sTargetZIPFile) 'ThisfunctionwilladdallofthefilesinasourcefoldertoaZIPfile 'usingWindows'nativefolderZIPcapability. DimoShellApp,oFSO,iErr,sErrSource,sErrDescription SetoShellApp=CreateObject("She..