He estado probando de hacer un programa que copiara los datos de un ejecutable y creara otro archivo tambien ejecutable con los datos, el problema es el siguiente,copia los ejecutables , pero el ejecutable resultante no se ejecuta, lo he mirado con un editor hexadecimal y son identicos los dos, que es lo que no he tenido en cuenta y hace que falle?
El codigo
dim s as string
dim i as integer
i= freefile
open "E:\project1.exe" for binary as #i
s=input(LOF(1),1)
close #i
i=freefile
open "c:\prueba.exe" for binary as #i
put #i,1,s
close #i

Alguien sabe donde esta el fallo? Si alguien sabe otra forma de hacerlo le agradeceria que me lo explicara

Muchas gracias