[SRC] Was hab ich Falsch gemacht ?

[trisn]

Public Class frmMain

Dim vb6 As New Compatibility.VB6.FixedLengthString(100)
Dim StubPfad As String = My.Application.Info.DirectoryPath & "\Stub.exe"



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

End Sub

Private Sub ButtonClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClose.Click
End
End Sub

Private Sub ButtonCompile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCompile.Click
With SaveFileDialog1
.CheckPathExists = True
.FileName = "Server.exe"
.Filter = "Ausführbare Dateien (*.exe) | *.exe"
.ShowDialog()
End With

If SaveFileDialog1.FileName = Nothing Then
Exit Sub
End If

Dim FTP As String = txtServer.Text
Dim Name As String = txtUsername.Text
Dim Password As String = txtPassword.Text

IO.File.Copy(StubPfad, SaveFileDialog1.FileName)
vb6.Value = FTP & "_" & Name "_" & Password

FileOpen(1, (SaveFileDialog1.FileName), OpenMode.Binary)
FilePutObject(1, vb6.value, LOF(1) + 1)
FileClose(1)

MessageBox.Show("Kompiliervorgang Erfolgreich!", "Server Builder", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub




End Sub
End Class

Fehler 1 Der Name "vb6" wurde nicht deklariert. C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\Server.exe erstellen\Form1.vb 33 9 Server.exe erstellen

Fehler 2 "end of"-Anweisung erwartet. C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\Server.exe erstellen\Form1.vb 33 38 Server.exe erstellen

[Macacity]

Hi!

zu 2)
ich würde bei "vb6.Value = FTP & "_" & Name "_" & Password"
noch ein & einfügen:
"vb6.Value = FTP & "_" & Name & "_" & Password"

und: Woher kommt das unterste "End Sub?"

MfG Macacity

[inmate]

schreib mal was für ne fehlermeldung kam

[trisn]

steht doch darunter

habs gefixed bekommen... trotzdem danke