[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