复制代码 代码如下:

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(18,0)

fp.Close

Set oApp=CreateObject("Shell.Application")

Set fso=Nothing

Err.Clear

oApp.Namespace(targetfile).CopyHere "C:1.txt"

WScript.Sleep 1000