VB6 package file not working

[john83726]

Hello,

I am trying to make an exe file that when rau, deploys the files joined to it to specific directories list in the code of the package exe.

It deploys all the files, but the problem is that one of the exe files it deploys does not work after (works fine on its own).

Could this be because it was compressed or maybe I have to adjust my code so that exe's work when deployed.

Please have a look:

Sub Main()
    Dim FileNum     As Integer
    Dim DataArray() As Byte
    
    DataArray = LoadResData(101, "CUSTOM")
    FileNum = FreeFile
    Open "C:\MyProgram.exe" For Binary As #FileNum
    Put #FileNum, 101, DataArray()
    Close #FileNum
    
    Erase DataArray
End Sub

Thanks anyone