Shulou(Shulou.com)06/03 Report--

This article focuses on "vbs implementation of zip compression and unzip decompression function code sharing", interested friends may wish to take a look. The method introduced in this paper is simple, fast and practical. Next let the editor to take you to learn "vbs to achieve zip compression and unzip decompression function code sharing" it!

Compression code:

The copy code is as follows:

Zip "D:\ test.iso", "D:\ test.zip"

Zip "D:\ test", "D:\ test.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 "Competition" & 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

Do

WScript.Sleep 1000

Loop Until objTarget.Items.Count > 0

End Sub

Extract the code:

The copy code is as follows:

UnZip "D:\ test.iso", "D:\ test.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

At this point, I believe you have a deeper understanding of "vbs to achieve zip compression and unzip decompression function code sharing", might as well to the actual operation of it! Here is the website, more related content can enter the relevant channels to inquire, follow us, continue to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.