Vbs implements the code sharing of zip compression and unzip decompression function
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!
