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

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!

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.