请问如何向一个EXE文件末尾再添加一个二进制文件？

Dim FileNo As Integer
Dim by() As Byte
Dim FileLen As LongFileNo = FreeFileOpen "C:\1.jpg" For Binary As FileNo
    FileLen = LOF(FileNo)
    ReDim by(FileLen - 1) As Byte
    Get #FileNo, , by
Close FileNoOpen 你好写的文件 For Binary As FileNo
    FileLen = LOF(FileNo)
    Seek #FileNo, FileLen + 1
    Put #FileNo, , by
Close FileNo
这样就好了。要是可以的话给我分吧。拜托了。