Hallo alle zusammen

Das is hier einer meiner ersten Visual Basic programme.
Jetzt habe ich ein problem...

Ich wollte ein Programm schreiben das txt daten (wie im V-TUT) uploaden kann !
Aber ich habe es ein wenig umgeändert !
Ein Fenster fürs ein loggen vom FTP und dan noch ein Fenster zum ein Tippen eines Textes aber irgendwie will er nix Uploaden [img]/sad.gif[/img]

Hier die Source

Code:

Private Sub Command1_Click()<br />Dim a As String<br />Dim b As String<br /><br />With Inet1<br />.AccessType = icUseDefault<br />.Protocol = icFTP<br />.RemotePort = "2222"<br />.URL = txt_url.Text<br />.UserName = txt_username.Text<br />.Password = txt_password.Text<br /><br />End With<br /><br /><br /><br /><br />If txt_url.Text = "" Then<br />MsgBox (" Bitte url eintragen !")<br />Else<br />MsgBox (" Connected ! ")<br />End If<br /><br />If txt_username.Text = "" Then<br />MsgBox (" Bitte Username eintragen !")<br />End If<br /><br />If txt_password.Text = "" Then<br />MsgBox (" Bitte Password eintragen !")<br />End If<br /><br />If txt_password.Text = "" And txt_username.Text = "" And txt_url.Text = "" Then<br />Form1.Show<br />Else<br />Form2.Show<br />End If<br /><br /><br />End Sub

Code:

Private Sub Command1_Click()<br />Open "Uploaded.txt" For Append As #1<br />Print #1, Text1.Text<br />Close #1<br /><br /><br />Dim a As String<br />Dim b As String<br /><br />With Inet1<br /><br />a = Text1.Text<br />b = Text2.Text<br /><br />.Execute , "P[B][COLOR=Red]U[/COLOR][/B]T" & a & [B][COLOR=Red]" "[/COLOR][/B] & b<br /><br />End With<br />MsgBox ("Erfolgreich geuplodaed")<br />End Sub<br /><br />Private Sub Form_Load()<br />Form1.Show<br />Load Form2<br />End Sub