2

以下の vb スクリプトを使用してファイルを解凍しているため、解凍中にポップアップ メッセージ (コピー/抽出) が表示されます。ポップアップ メッセージを取り除く方法はありますか?

FileToGetUnZipped = "InstallDir\UI_Files.zip"
DestPathForUnzippedFile = "InstallDir\system"

Set objFSO = CreateObject("Scripting.FileSystemObject")

If Not objFSO.FolderExists(DestPathForUnzippedFile) Then
    objFSO.CreateFolder(DestPathForUnzippedFile)
End If

UnZipFile FileToGetUnZipped, DestPathForUnzippedFile

Sub UnZipFile(strArchive, DestPathForUnzippedFile)
    Set objApp = CreateObject( "Shell.Application" )

    Set objArchive = objApp.NameSpace(strArchive).Items()
    Set objDest = objApp.NameSpace(DestPathForUnzippedFile)

    objDest.CopyHere objArchive
End Sub
4

1 に答える 1

3

CopyHereメソッドは、さまざまなオプションを組み合わせた 2 番目の引数を取ります。

(4)

進行状況ダイアログ ボックスを表示しません。

ただし、これらのオプションの多くを確実に機能させることにあまり成功していません.Windowsのバージョンによって、他の何よりも異なると思います。

CopyHere補足として、メソッドが非同期であることに問題がある可能性があると思います-スクリプトが完了する前に完了CopyHereし、コピープロセスが強制終了される可能性があります。

于 2013-07-22T12:41:24.203 に答える