Hey,
Also ich arbeite gerade an einem Programm zum Hochladen von Daten usw, auf einen FTP Server und ich hatte das schon einmal gemacht und dort hat es immer funktioniert und ab jetzt nicht mehr.
Also ... ich habe eine Textbox2 die für den Server ist (z.B. DeinName.bplaced.net, eine Textbox3 für den Benutzernamen und eine Textbox4 für das Passwort und ich habe alles in einen Code gemacht. Überzeugt euch selbst.
Könnt ihr mir irgendwie bei diesem Problem helfen?
es kommt jedes mal meine Messagebox und sagt, dass keien Verbindung aufgebaut werden kann.
Gruß, Marin
Also ich arbeite gerade an einem Programm zum Hochladen von Daten usw, auf einen FTP Server und ich hatte das schon einmal gemacht und dort hat es immer funktioniert und ab jetzt nicht mehr.
Also ... ich habe eine Textbox2 die für den Server ist (z.B. DeinName.bplaced.net, eine Textbox3 für den Benutzernamen und eine Textbox4 für das Passwort und ich habe alles in einen Code gemacht. Überzeugt euch selbst.
VB.NET-Quellcode
- If TextBox1.Text = "" Or TextBox1.Text = "Klicken Sie hier um eine Datei auszuwählen ..." Then
- MsgBox("Bitte wählen Sie eine Datei aus.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
- ElseIf TextBox2.Text = "" Then
- MsgBox("Bitte geben Sie Ihren Server an.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
- ElseIf TextBox3.Text = "" Then
- MsgBox("Bitte geben Sie Ihren Benutzernamen ein", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
- ElseIf TextBox4.Text = "" Then
- MsgBox("Bitte geben Sie Ihr Passwort ein", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
- Else
- Try
- Form3.Show()
- My.Computer.Network.DownloadFile(TextBox1.Text, "ftp://" & TextBox3.Text & "@" & TextBox2.Text & "/Ordner/" & OpenFileDialog1.SafeFileName, TextBox3.Text, TextBox4.Text)
- TextBox1.Clear()
- Dim inf As New IO.FileInfo(OpenFileDialog1.FileName)
- Dim KB As String = Math.Round(inf.Length / 1024, 2) & " KB"
- Dim MB As String = Math.Round(inf.Length / (1024 ^ 2), 2) & " MB"
- Form3.Close()
- Catch ex As Exception
- Form3.Close()
- MsgBox("Es konnte keine Verbindung aufgebaut werden!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
- End Try
- End If
Könnt ihr mir irgendwie bei diesem Problem helfen?
es kommt jedes mal meine Messagebox und sagt, dass keien Verbindung aufgebaut werden kann.
Gruß, Marin