EmbedFile
Previous  Next

Embeds a file in another file.
Used in conjunction with RetrieveFile or RetrieveImage.
Syntax: EmbedFile (FileName As String)

Example:
Sub App_Start
      FileOpen(c1,"data.dat",cRandom)
      bin.New1(c1,true)
      bin.EmbedFile (AppPath & "\pic.jpg")
      bin.EmbedFile (AppPath & "\smiley.gif")
      FileClose(c1)
End Sub