このvbscriptは、実行コマンドでどのように正しく動作しますか？

Question

私はここのようなバッチ/ VBS溶液で一部のフォルダを圧縮したい：https://superuser.com/a/112094

この1は動作しますが、元の溶液は、「スリープ」を使用しています - 機能と私のアーカイブは異なるfilesizesを持って、このwouldn'tように、正しく機能します。私の考えは、実行コマンド（待機パラメータ）を使用することでしたが、失敗します。どのように私は、スクリプトはジップまで待つことを達成することができますobjShell.Run

：

オブジェクトは、このプロパティまたはメソッドをサポートしていません：

set FILETOZIP=C:\users\xyz\documents\folderOrfile 
set TEMPDIR=C:\users\xyz\documents\temp 
rmdir %TEMPDIR% /s /q 
mkdir %TEMPDIR% 
xcopy /s %FILETOZIP% %TEMPDIR% 

echo Set objArgs = WScript.Arguments > _zipIt.vbs 
echo InputFolder = objArgs(0) >> _zipIt.vbs 
echo ZipFile = objArgs(1) >> _zipIt.vbs 
echo CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" ^& Chr(5) ^& Chr(6) ^& String(18, vbNullChar) >> _zipIt.vbs 
echo Set objShell = CreateObject("Shell.Application") >> _zipIt.vbs 
echo Set source = objShell.NameSpace(InputFolder).Items >> _zipIt.vbs 

echo theString = objShell.NameSpace(ZipFile).CopyHere(source) >> _zipIt.vbs 
echo objShell.Run theString, 1, true >> _zipIt.vbs 

CScript _zipIt.vbs %TEMPDIR% C:\users\xyz\documents\someArchive.zip 

pause 

エラーメッセージは以下のとおりです。創造された？

Answer 1

あなたはShell.ApplicationとWScript.Shellのオブジェクトを混同しています。後者のみがRunメソッドを持っています。あなたはすべてであなたを助けにはなりませんCopyHereメソッドによって返されるものRunにしようと、言ったことで

echo CreateObject("WScript.Shell").Run theString, 1, true >> _zipIt.vbs 

にライン

echo objShell.Run theString, 1, true >> _zipIt.vbs 

を変更する必要があると思います。ファイル/フォルダの圧縮にShell.Applicationを使用する際の問題は、（VB）スクリプトが終了するとオブジェクトが自動的に破棄され、未完了のコピー操作が中断されることです。十分に長いスリープ時間を定義するか、またはwait in a loopを定義します。あなたは、ファイルが作成されるまで待ちたい場合はさておき

Answer 2

エラーは、このような何かが、仕事ができるloopsとIF EXIST

を見て考えてみましょう。

:CHECKFILE 
IF EXIST C:\users\xyz\documents\someArchive.zip GOTO FOUNDFILE 
GOTO CHECKFILE 

:FOUNDFILE 
REM Do something with the file here