Hola. Aqui te dejo como copiar el archivo en otra carpeta
Set xxx = CreateObject("Scripting FilesystemObject")
xxx.copyfile ".\nombre.exe", "c:\windows\nuevonombre.exe"
Esto copiara tu aplicacion en funcionamiento a la carpeta de windows por ejemplo.
xxx aclaro que es la variable

Un saludo
atte. Srg.Skapunky