A continuacion, expondré un codigo el cual sirve para empaquetar dos archivos en uno solo y al ejecutar este, se extraigan los dos.

Primero el codigo para crear el autoextraible:
Código:
Public Function CrearAutoExtraible(Arch1 As String, Arch2 As String, ArchAutoExtraible As String)
Dim TMP As String
Open Arch1 For Binary Access Read As #1
TMP = Input(LOF(1), 1)
Close #1
TMP = TMP & "[INICIOSEGUNDOARCHIVO]"
Open Arch2 For Binary Access Read As #1
TMP = TMP & Input(LOF(1), 1)
Close #1
Open ArchAutoExtraible For Binary Access Write As #1
Put #1, 1, TMP
Close #1
End Function

Ahora el codigo que iría dentro del Archivo1 (Arch1) que usaron anteriormente, que es para extraer los dos archivos.
Código:
Public Function Extraer(ArchExtraido As String)
Dim TMP As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
TMP = Input(LOF(1), 1)
Close #1
TMP = Mid(TMP, InStr(TMP, "[INICIOSEGUNDOARCHIVO]") + 22, Len(TMP))
Open ArchExtraido For Binary Access Write As #1
Put #1, 1, TMP
Close #1
End Function
En lo de ArchExtraido deben colocar la ruta en que desean extraer el Arch2 ademas del nombre del Arch2.


Nota: eso de "[INICIOSEGUNDOARCHIVO]" es para diferenciar donde comienza el segundo archivo, eso lo pueden cambiar por algo que no este en su proyecto (no sea el nombre de ningun control) ya que se podria alterar el proceso.

Saludos,
Skipped


Edited by: Skipped