2013-07-22 5 views
2

파일을 압축 해제하려면 아래 vb 스크립트를 사용하고 있습니다. 압축 해제가 진행되는 동안 팝업 메시지 (복사/압축 해제)가 표시됩니다. 팝업 메시지를 제거하는 방법?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 

답변

3

CopyHere 방법을 포함하여, 다양한 옵션의 조합이 될 수있는 2 개의 인자를 가지고

(4)

가 진행 대화 상자를 표시하지 않습니다. 나는 그것이 다른 것만큼 Windows 버전에 따라 다릅니다 생각 -

그러나, 나는 이러한 옵션의 대부분은 안정적으로 작동 점점에서 많은 성공이 없었어요.

보조 노트로 CopyHere 메서드가 비동기적일 수 있습니다. CopyHere 전에 스크립트가 완료 될 수 있으며 이로 인해 복사 프로세스가 중단 될 수 있습니다.

+0

objDest.CopyHere objArchive, 4는 나를 위해 작동합니다. 감사. – user1752602

관련 문제