Cuando escribo en forma binaria un nuevo archivo, este se copia con 4 caracteres en la cabecera, que no son del archivo original, por consiguiente mi archivo no se abre.
Aca posteo un codigo, aclaro que no es exactamente lo que deseo hacer, es solo un ejemplo que muestra el problema de forma mas concreta. Espero que alguien me pueda ayudar.
Código:
Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Yo = Input(LOF(1), 1)
Close #1
Open "C:\Resultado.exe" For Binary As #2
Put #2, , Yo
Close #2
End
End Sub
Cuando abro con el bloc de notas el archivo orignial en la primera linea aparece esto:
Código:
MZ ÿÿ ¸ @ ¸ º ´ Í!¸LÍ!This program cannot be run in DOS mode.
Y en Resultado.exe (donde tendria que aparecer exactamente el mismo codigo aparece:
Código:
PMZ ÿÿ ¸ @ ¸ º ´ Í!¸LÍ!This program cannot be run in DOS mode.
Si se fijan bien, van a notar que los 4 primeros caracteres del archivo Resultado.exe son ' P' y los del original son 'MZ '. Sospecho que es por esto que no me ejecuta el Resultado.exe.
Repito, no es esto exactamente lo que quiero hacer (no digan que use FileCopy y eso porque mi objetivo no es copiar el mismo archivo, solo pongo este codigo para detallar bien donde me aparece el error).
Desde ya, muchisimas gracias por leer mis post, y si podes ayudarme, mejor .
Saludos.-