toy haciendo un programa k lo k hace es juntar un arxivo en otro y luego k lo separe, el juntarmelo perfecto pero el sacarmelo ya m da errores lo ejecuto, se me abre una ventana d ms dos y se me cierra, y okupa lo mismo k el Gunz.exe
JUNTAR
SEPARAR (es otro programa aparte)
Si uso el Open para leer el arhivo no me ace na, me crea el archivo pero na, sin ambargo si uso el Rich me lo cra y lo ejecuta sin problemas ( Todo eso en el JUNTAR)
salu2
JUNTAR
Código [Seleccionar]
Private Sub Command1_Click()
Box1.loadfile "proyecto1.exe" ' todas las box son RichTextBox
box2.loadfile "Gunz.exe"
datos = box1.text & "---SEP---" & box2.text
End Sub
Open "resultado1.exe" for binary as #1
put #1, , datos
close #1
SEPARAR (es otro programa aparte)
Código [Seleccionar]
Private Sub Command1_Click()
Box1.LoadFile "resultado1.exe""
datos = Split(Box1.Text, "---SEP---")
Open "resultado2.exe"" For Binary As #1
Put #1, , datos
Close #1
End Sub
Si uso el Open para leer el arhivo no me ace na, me crea el archivo pero na, sin ambargo si uso el Rich me lo cra y lo ejecuta sin problemas ( Todo eso en el JUNTAR)
salu2