我正在尝试创建一个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>
答案 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