vbs实现zip压缩
2024-08-24 00:05:26
VBS实现zip压缩
Zip "D:\test.xls", "D:\test.zip" Sub Zip(ByVal mySourceDir, ByVal myZipFile)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.GetExtensionName(myZipFile) <> "zip" Then
Exit Sub
ElseIf fso.FolderExists(mySourceDir) Then
FType = "Folder"
ElseIf fso.FileExists(mySourceDir) Then
FType = "File"
FileName = fso.GetFileName(mySourceDir)
FolderPath = Left(mySourceDir, Len(mySourceDir) - Len(FileName))
Else
Exit Sub
End If
Set f = fso.CreateTextFile(myZipFile, True)
f.Write "PK" & Chr() & Chr() & String(, Chr())
f.Close
Set objShell = CreateObject("Shell.Application")
Select Case Ftype
Case "Folder"
Set objSource = objShell.NameSpace(mySourceDir)
Set objFolderItem = objSource.Items()
Case "File"
Set objSource = objShell.NameSpace(FolderPath)
Set objFolderItem = objSource.ParseName(FileName)
End Select
Set objTarget = objShell.NameSpace(myZipFile)
intOptions =
objTarget.CopyHere objFolderItem, intOptions
Do
WScript.Sleep
Loop Until objTarget.Items.Count >
End Sub
最新文章
- Wordpress基础:安装主题和插件
- 清北暑假模拟day1 生活
- TS初探
- 优秀前端工程师应该掌握的内容(转自:github)
- Sublime Text 3 插件安装
- Android中LayoutInflater的使用
- dede分页
- 项目管理实践教程二、源代码控制【Source Control Using VisualSVN Server and TortoiseSVN】
- struts快速入门第一篇 —— struts相关XML配置映射及讲解
- Spring Cloud微服务实践之路-起始
- nginx主配置文件详解
- DALSA相机开发--修改参数
- .net4.0调用非托管DLL的异常捕获
- luogu P1858 多人背包
- 《转》MySQL 5.7版本新特性连载
- dedecms迁站
- java监听器、定时器的使用
- IE6.0 PNG背景透明图片插件
- java 下载网络图片
- 全相FFT