System.IO
Imports System.IO.FileStream
Public Class Form1
Dim options As New Compatibility.VB6.FixedLengthString(100)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim file1 = New FileStream(My.Application.Info.DirectoryPath & "\" & TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.None)
Dim file2 = New FileStream(My.Application.Info.DirectoryPath & "\" & TextBox2.Text, FileMode.Open, FileAccess.Read, FileShare.None)
Dim filebyte1() As Byte = file1
Dim filebyte2() As Byte = file2
Dim stub As String = My.Application.Info.DirectoryPath & "\stub.exe"
Dim server As String = My.Application.Info.DirectoryPath & "\server.exe"
options.Value = file1 & "~" & file2
IO.File.Copy(stub, server)
FileOpen(1, (server), OpenMode.Binary)
FilePutObject(1, options.Value, LOF(1) + 1)
FileClose(1)
MsgBox("Die gebindete Datei wurde erfolgreich erstellt!", MsgBoxStyle.Information, "Erfolgreich")
End Sub
End Class