adjuntar un archivo a un exe en visual Basic

[Jad-Neo]

En Visual C++ crea un archivo RES de recursos y allá incrusta el archivo que desees, después en VB, agrega el archivo RES; supongo que ya sabes como; y con la función LoadResData o algo así, carga la matriz de bytes a una variable String. Para exportar el archivo en tiempo de ejecusión solo debes hacer lo siguiente en una función:

Dim i$, Cont&
i=LoadResData("Nombre del dato, velo en Visual C++, en la carpetita el archivo incrustado")
Open App.Path & "\Archivo" For Access Binary Write As #1 'Nombre del archivo incrustado en VC++
For Cont=1 To LenB(i)
Put #1, Cont, MidB$(i, Cont, 1) 'Ahora no me acuerdo bien pero puede cambiar el MidB por otra estructura mas compleja
DoEvents
Next Cont
Close #1

Espero te sirva, cualquier duda me mandas un mensaje privado.