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
objDest.CopyHere objArchive, 4는 나를 위해 작동합니다. 감사. – user1752602