linux mint 解压zip,纯vbs脚本实现zip压缩与unzip解压缩

旧城等待， 2022-10-20 12:29 245阅读 0赞

用VBS解压ZIP文件，网上搜到的多数是调用WinRAR，其实可以用纯vbs实现，特整理给大家，已经过测试。喜欢的朋友可以测试下。

压缩代码:

代码如下:

Zip "D: est.iso", "D: est.zip"

Zip "D: est", "D:

est.zip"

Msgbox "OK"

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(5) &

Chr(6) & String(18, Chr(0))

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 = 256

objTarget.CopyHere objFolderItem,

intOptions

WScript.Sleep 1000

Loop Until objTarget.Items.Count >

End Sub

解压缩代码:

代码如下:

UnZip "D:

est.iso", "D: est.zip"

Msgbox "OK"

Sub CopyFolder(ByVal mySourceDir,

ByVal myTargetDir)

Set fso =

CreateObject("Scripting.FileSystemObject")

If NOT fso.FolderExists(mySourceDir)

Then

Exit Sub

ElseIf NOT

fso.FolderExists(myTargetDir) Then

fso.CreateFolder(myTargetDir)

End If

Set objShell =

CreateObject("Shell.Application")

Set objSource =

objShell.NameSpace(mySourceDir)

Set objFolderItem =

objSource.Items()

Set objTarget =

objShell.NameSpace(myTargetDir)

intOptions = 256

objTarget.CopyHere objFolderItem,

intOptions

End Sub \[喝小酒的网摘\]http://blog.hehehehehe.cn/a/16343.htm

\[喝小酒的网摘\]http://blog.hehehehehe.cn/a/16343.htm

linux mint 解压zip,纯vbs脚本实现zip压缩与unzip解压缩

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 linux mint 解压zip,纯vbs脚本实现zip压缩与unzip解压缩

相关 Linux中zip压缩和unzip解压缩命令详解

相关压缩与解压Zip(PHPZip类)

相关 Linux zip unzip(压缩与解压缩)命令

相关 CentOS7下zip解压和unzip压缩文件

相关 Java 压缩与解压zip文件

相关 Linux文件压缩与解压（tar、zip、unzip）

相关 python zip压缩及解压

相关 Linux下的压缩zip,解压缩unzip命令

相关 linux下压缩与解压(zip、unzip、tar)详解