admin 管理员组

文章数量: 887021


2024年1月27日发(作者：springmvc加载xml配置文件)

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

压缩代码:

代码如下:

Zip "D:", "D:"

Zip "D:test", "D:"

Msgbox "OK"

Sub Zip(ByVal mySourceDir, ByVal myZipFile)

Set fso = CreateObject("stemObject")

If ensionName(myZipFile) <> "zip" Then

Exit Sub

ElseIf Exists(mySourceDir) Then

FType = "Folder"

ElseIf ists(mySourceDir) Then

FType = "File"

FileName = eName(mySourceDir)

FolderPath = Left(mySourceDir, Len(mySourceDir) - Len(FileName))

Else

Exit Sub

End If

Set f = TextFile(myZipFile, True)

"PK" & Chr(5) & Chr(6) & String(18, Chr(0))

Set objShell = CreateObject("ation")

Select Case Ftype

Case "Folder"

Set objSource = ace(mySourceDir)

Set objFolderItem = ()

Case "File"

Set objSource = ace(FolderPath)

Set objFolderItem = ame(FileName)

End Select

Set objTarget = ace(myZipFile)

intOptions = 256

re objFolderItem, intOptions

Do

1000

Loop Until > 0

End Sub

解压缩代码:

代码如下:

UnZip "D:", "D:"

Msgbox "OK"

Sub CopyFolder(ByVal mySourceDir, ByVal myTargetDir)

Set fso = CreateObject("stemObject")

If NOT Exists(mySourceDir) Then

Exit Sub

ElseIf NOT Exists(myTargetDir) Then

Folder(myTargetDir)

End If

Set objShell = CreateObject("ation")

Set objSource = ace(mySourceDir)

Set objFolderItem = ()

Set objTarget = ace(myTargetDir)

intOptions = 256

re objFolderItem, intOptions

End Sub

用VBS解压ZIP文件，网上搜到的多数是调用WinRAR，一点技术含量也没有。Google一下“VBS 解压ZIP”，第二是搜搜问问“vbs实现解压缩zip文件”，满意答案是“所以想用vbs来解压这两种格式的文件，至少要有两种命令行解压工具，否则是绝对不可以的”。绝对不可以的，回答的人好自信啊，笑而不语~


本文标签： 文件 解压 测试 加载 技术含量

版权声明：本文标题：纯vbs实现zip压缩与unzip解压缩函数代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1706334518h505522.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。