• Home
 · 
• Files/File Controls/Input/Output
 · 
• How to Append a file to an EXE

How to Append a file to an EXE

This is just to show you how to append a file to an executable. Could be handy if you wanna save maybe a tag to your exe file. Have not test it with very large files but small file works perfectly.

Side Effects
There could be problems with large files, I dont know.

Rate How to Append a file to an EXE

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Private Sub AppendToExe(exefile$,filetoappend$)
  Open filetoappend$ For Binary As #1
  filedata$ = String(LOF(1), " ")
  Get #1, , filedata$
  Close #1
  Open exefile$ For Binary As #1
  f = LOF(1)
  Seek #1, f + 1
  Put #1, , "WAP"   'any identifer
  Put #1, , filedata$
  Close #1
  
End Sub
Private Sub ExtractFromExe(exefile$,filetoextr$)
  Open exefile$ For Binary As #1
  filedata$ = String(LOF(1), " ")
  Get #1, , filedata$
  Close #1
  pos = InStr(1, filedata$, "WAP")
  f$ = Mid$(filedata$, pos + 3)
  
  Open filetoextr$ For Binary As #2
  Put #2, , f$
  Close #2
    
End Sub