How VBScript compresses a single file to zip format

This article is about how VBScript compresses individual files into zip format. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

The code is as follows:

On Error Resume Next

Dim fso,fp,oApp,targetfile

Set fso=CreateObject ("Scripting.FileSystemObject")

Targetfile= "D:\ tmp.zip"

Set fp=fso.OpenTextFile (targetfile,2,True)

Fp.Write Chr (80) & Chr (75) & Chr (5) & Chr (6) & String (18pc0)

Fp.Close

Set oApp=CreateObject ("Shell.Application")

Set fso=Nothing

Err.Clear

OApp.Namespace (targetfile). CopyHere "C:\ 1.txt"

WScript.Sleep 1000

Thank you for reading! This is the end of this article on "how to compress a single file in VBScript into zip format". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it out for more people to see!