Dobrý večer, udělal jsem si jednoduchý script pro ftp chat, ale nějak mi nejde ukládání a čtení dat na ftp. Jsou tady dvě možnosti, buď mám špatně napsanou adresu ftp a nebo je někde chyba v kodu. Nevíte jak by to šlo spravit?
Kod pro ukládání na ftp
[CODE]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim AClient As New Net.WebClient
AClient.Credentials = New Net.NetworkCredential("USER", "PASSCODE")
AClient.UploadString("ftp://ventertainment.mzf.cz/zpravy.txt", NameTextBox.Text & " : " & TextToSend.Text)
Catch ex As Exception
End Try
End Sub
[/CODE]
Kod pro čtení
[CODE]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Dim BClient As New Net.WebClient
BClient.Credentials = New Net.NetworkCredential("USER", "PASSCODE")
TextChecker.Text = (BClient.DownloadString("ftp://ventertainment.mzf.cz/zpravy.txt"))
RecieveLB.SelectedIndex = RecieveLB.Items.Count - 1
'Error Correction. Prevents The Same Text From Recieving.
If TextChecker.Text = RecieveLB.SelectedItem = True Then
'Nothing.
Else
Try
RecieveLB.Items.Add(TextChecker.Text)
Catch ex As Exception
End Try
End If
Catch ex As Exception
End Try
End Sub
[/CODE]