[Iska]

Код:

Option Explicit

Dim strFileName
Dim strSourceFile
Dim strDestFolder


strFileName   = "Setup.exe"

With WScript.CreateObject("Scripting.FileSystemObject")
	strSourceFile = .BuildPath(.GetParentFolderName(WScript.ScriptFullName), strFileName)
	strDestFolder = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:appdata").self.Path, "My First Program")
	
	If .FileExists(strSourceFile) Then
		If .FolderExists(strDestFolder) Then
			.CopyFile strSourceFile, strDestFolder & "\", True
			WScript.CreateObject("WScript.Shell").Run """" & .BuildPath(strDestFolder, strFileName) & """", 1, False
		Else
			WScript.Echo "Destination folder [" & strDestFolder & "] not found."
		End If
	Else
		WScript.Echo "Source file [" & strFile & "] not found."
	End If
End With

WScript.Quit 0

[semen77]

Iska , спасибо что помогаете, но не могли бы вы на пальцах объяснить про скобки и экранирование? Где мой косяк?
Ведь в моём варианте, он делает почти всё правильно, за исключением того, что не запускается.

[Iska]

Скобки не при чём. Экранирования в VBScript нет — незачем: нет обработчика, ничего не надо и экранировать. Дело в пробелах в пути к файлу:

Код:

WScript.CreateObject("WScript.Shell").Run """" & .BuildPath(strDestFolder, strFileName) & """", 1, False