VB脚本：解压缩文件时的消息

Question

我正在使用下面的vb脚本解压缩文件，所以在进行解压缩时，我看到一个弹出的messgae（复制/解压缩），有没有办法摆脱弹出消息？

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

Answer 1

CopyHere方法采用第二个参数，可以是各种选项的组合，包括

  

（4）

     

    

不显示进度对话框。

  

但是，我没有取得太多成功让许多这些选项可靠地运行 - 我认为它因Windows版本而异，因此不同。

作为旁注，我认为您可能会遇到CopyHere方法异步的问题 - 您的脚本可能会在CopyHere之前完成，这可能会导致复制过程失败。