have a problem while i m creating input exe with swfkit

[delirgram]

Hi
Sorry for my bad english. )

We are using .Net 2.0 .We downloaded your sample codes . But we have a problem when we are embeding exe,swf,images and xml files into output exe. We need to make "input exe" for our application but we can't it.
Please help us about building input exe with swfkit.

Our codes.


""""""""Dim template = path & "catalog.exe"==============input exe my problem

Imports ReplacerLib

Partial Class Default2

Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim replacer = New ReplaceClass()

Dim path

path = Server.MapPath("/dSwfKit") & "\" 'ana root

replacer.addMovie(path & "catalog.swf")

Dim template = path & "catalog.exe"

Dim fileName1 As String = ""

'iiiiiiiiiii

Dim sonpath As String = path & "i\"

Dim fileEntries As String() = System.IO.Directory.GetFiles(sonpath)

For Each fileName1 In fileEntries

replacer.addFile("i", fileName1)

Next

'insertedPic

Dim fileName2 As String = ""

sonpath = path & "insertedPic\"

Dim fileEntries2 As String() = System.IO.Directory.GetFiles(sonpath)

For Each fileName2 In fileEntries2

replacer.addFile("insertedPic", fileName2)

Next

'companies\covers\

Dim fileName3 As String = ""

sonpath = path & "companies\covers\"

Dim fileEntries3 As String() = System.IO.Directory.GetFiles(sonpath)

For Each fileName3 In fileEntries3

replacer.addFile("companies\covers", fileName3)

Next

'companies\logos\

Dim fileName4 As String = ""

sonpath = path & "companies\logos\"

Dim fileEntries4 As String() = System.IO.Directory.GetFiles(sonpath)

For Each fileName4 In fileEntries4

replacer.addFile("companies\logos", fileName4)

Next

'ecarts\noel\swf\

Dim fileName5 As String = ""

sonpath = path & "ecarts\noel\swf\"

Dim fileEntries5 As String() = System.IO.Directory.GetFiles(sonpath)

For Each fileName5 In fileEntries5

replacer.addFile("ecarts\noel\swf", fileName5)

Next

'xmls\

Dim fileName6 As String = ""

sonpath = path & "xmls\"

Dim fileEntries6 As String() = System.IO.Directory.GetFiles(sonpath)

For Each fileName6 In fileEntries6

replacer.addFile("xmls", fileName6)

Next

Dim output

output = replacer.buildStream(template, 2)

Response.ContentType = "application/octet-stream"

Response.AddHeader("content-disposition", "attachment; filename=output.exe")

Response.BinaryWrite(output)

Response.End()

End Sub

End Class