不使用VBS代码将文件复制到zip文件中

时间:2016-11-28 07:04:09

标签: vbscript

我正在尝试创建一个zip文件,并通过VBS代码将文件复制到其中。当我运行以下VBS代码时,它正在成功运行。 Outcome.zip正在创建,但没有文件被复制

<script src="https://ajax.googleapis.com/ajax/libs/angularjs/1.2.23/angular.min.js"></script>
<div ng-app ng-controller="TestController">
    <input type="hidden" name="id" ng-model="id" ng-init="id=12">     
</div>

1 个答案:

答案 0 :(得分:0)

使用.CopyHere方法复制的文件是异步的,您应该在脚本退出之前添加压缩文件计数检查,以便不会中断复制。看看下面的例子:

sDest = "C:\apace-jmeter-3\bin\Results\outcome.zip"
sSrc = "C:\Users\chitra.balasubramani\Desktop\Mail"

CreateObject("Scripting.FileSystemObject").OpenTextFile(sDest, 2, True).Write _
    "PK" & Chr(5) & Chr(6) & String(18, Chr(0))

With CreateObject("Shell.Application")
    Set oDestFldr = .NameSpace(sDest)
    Set oSrcFldr = .NameSpace(sSrc)
    oDestFldr.CopyHere oSrcFldr.Items
    Do 
        WScript.Sleep 100
    Loop Until oDestFldr.Items.Count = oSrcFldr.Items.Count
End With