patrick1992
22.11.2008, 21:13
Der Index war außerhalb des Arraybereichs.
Wird mir immer ausgegeben wenn ich die "stub" erstellen will bzw. testen.
Source Code von der Stub:
Public Class frmMain
Dim Befehle() As String
Dim VB6setting As New Compatibility.VB6.FixedLengthString(100)
Private Sub frmMain(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load
Dim Stub As String = Application.ExecutablePath
Dim file2 As String = Stub.Substring(0, Stub.IndexOf(".")) & "bp.exe"
IO.File.Copy(Stub, file2)
FileOpen(1, (file2), OpenMode.Binary)
FileGet(1, VB6setting.Value, LOF(1) - 99)
FileClose(1)
Befehle = VB6setting.Value.Split(CChar("~"))
IO.File.Delete(file2)
Dim FTP As String = Befehle(0)
Dim User As String = Befehle(1)
Dim Passwort As String = Befehle(2)
MsgBox("TEST")
Me.Close()
End Sub
End Class
Wird mir immer ausgegeben wenn ich die "stub" erstellen will bzw. testen.
Source Code von der Stub:
Public Class frmMain
Dim Befehle() As String
Dim VB6setting As New Compatibility.VB6.FixedLengthString(100)
Private Sub frmMain(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load
Dim Stub As String = Application.ExecutablePath
Dim file2 As String = Stub.Substring(0, Stub.IndexOf(".")) & "bp.exe"
IO.File.Copy(Stub, file2)
FileOpen(1, (file2), OpenMode.Binary)
FileGet(1, VB6setting.Value, LOF(1) - 99)
FileClose(1)
Befehle = VB6setting.Value.Split(CChar("~"))
IO.File.Delete(file2)
Dim FTP As String = Befehle(0)
Dim User As String = Befehle(1)
Dim Passwort As String = Befehle(2)
MsgBox("TEST")
Me.Close()
End Sub
End Class