vbs 实现压缩文件夹为zip文件
来源:互联网 发布:剑三琴萝捏脸数据 编辑:程序博客网 时间:2024/06/05 14:42
代码如下:
' VB Script Document
option explicit
createZip "d:\test", "d:\testZip.zip"
sub createZip(sfolder, tfolder)
dim fso, zipfile
dim shell, WshShell, destfolder, srcfolder
' create a blank zip compress file
set fso = CreateObject("Scripting.FileSystemObject")
set zipfile = fso.OpenTextFile(tfolder, 8, vbtrue)
zipfile.Write "PK" & Chr(5) & Chr(6) & string(18, 0)
zipfile.close
' copy you file into blank zip file
set shell = CreateObject("Shell.Application")
set WshShell = WScript.CreateObject("WScript.Shell")
set destfolder = shell.NameSpace(tfolder)
set srcfolder = shell.NameSpace(sfolder)
destfolder.CopyHere srcfolder.items, &H214
end sub
' VB Script Document
option explicit
createZip "d:\test", "d:\testZip.zip"
sub createZip(sfolder, tfolder)
end sub
0 0
- vbs 实现压缩文件夹为zip文件
- java实现压缩指定文件夹(文件夹包含子文件夹或文件)为zip格式压缩包
- Android--文件夹压缩为.zip
- 用Java将文件夹压缩为zip文件
- Java实现zip文件压缩(单个文件、文件夹以及文件和文件夹的组合压缩)
- C#压缩文件夹及文件夹下的所有文件为zip
- 批量文件压缩为ZIP
- 压缩为zip文件命令
- 文件压缩为zip--C#
- 将文件夹中的文件压缩到zip
- java压缩及解压(.zip)文件文件夹
- Python压缩文件夹/解压缩zip文件
- Python压缩文件夹/解压缩zip文件
- 针对一个文件夹压缩成zip文件
- Qt将文件夹压缩成ZIP文件
- java实现文件zip压缩
- java实现压缩zip文件
- 使用ant实现Zip文件压缩和解压缩Zip文件
- v$statname、v$mystat说明
- 『IOS』iOS 创建单例的两种方法
- iOS企业版程序发布
- HEAD_FIRST设计模式学习 ----策略模式 c++简单实现代码
- 数据库的一些基础概念(一)
- vbs 实现压缩文件夹为zip文件
- Android中Thread、Handler、Looper、MessageQueue的原理分析
- 高通平台 lcd driver 调试小结
- pvr与png的内存占用
- 【转】Android系统设计中的设计模式分析(汇总)
- HDFS ViewFs配置
- hibernate——一对一、多对一和多对多关系的比较
- eclipse 如何把java项目转成web项目
- 裘宗燕:C/C++ 语言中的表达式求值