VBS: Выполнение скрипта, только по окончании процесса копирования

 If NOT (FSO.FolderExists("C:\бла бла бла")) Then
    
MsgBox("Сейчас начнется копирование, не откл. от сети не закрывайте всплывающие окна")
 
objFolder.CopyHere sourceDirSpec, PARAM_DIALOG
 
MsgBox("Нажмите Ок для продолжения установки")
 
WshShell.Run 
 
Else
 
WshShell.Run прога из копируемой папки
 
end if

Dim objFS, objShell, objFolderTarget, objWShell
Dim strSource, strTarget, strProcess, strTemp
strSource = "Z:\Distrib\2GIS"
strTarget = "E:\2GIS"
strProcess = "2GISData_Novosibirsk-185.0.0.msi"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strSource) Then
    Set objShell = CreateObject("Shell.Application")
    If objFS.FolderExists(strTarget) Then
        Set objFolderTarget = objShell.NameSpace(strTarget)
        objFolderTarget.CopyHere strSource & "\*.*"
    Else
        strTemp = Left(strTarget, InStrRev(strTarget, "\"))
        Set objFolderTarget = objShell.NameSpace(strTemp)
        objFolderTarget.CopyHere strSource
    End If
    Set objFolderTarget = Nothing
    Set objShell = Nothing
    If objFS.FileExists(strTarget & "\" & strProcess) Then
        Set objWShell = CreateObject("WScript.Shell")
        objWShell.Run strTarget & "\" & strProcess, 1
        Set objWShell = Nothing
    End If
Else
    WScript.Echo "Папка-источник не найдена."
End If
Set objFS = Nothing
WScript.Quit 0