[VB.NET] Scaricare file di testo da server FTP e caricarlo in TextBox

[Ciccetto]

ciao a tutti

Con Questo Codice :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://192.168.1.100/var/etc/test.cfg"), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential("root", "cash")
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim file() As Byte = System.Text.Encoding.Default.GetBytes(TextBox1.Tex t)

Dim strz As System.IO.Stream = request.GetRequestStream()
strz.Write(file, 0, file.Length)
strz.Close()
strz.Dispose()

.................................................

io vorrei fare l inverso dal server prendere il file e leggerlo in textbox1.text????????

grazie

[oregon]

Originariamente inviato da Ciccetto
ciao a tutti

Con Questo Codice :

.... che fai ? Hai lasciato la frase a metà ... !

io vorrei fare l inverso dal server prendere il file e leggerlo in textbox1.text????????

Studia la classe WebRequestMethods.Ftp

http://msdn.microsoft.com/it-it/libr...thods.ftp.aspx

oltre al metodo UploadFile c'è anche il metodo DownloadFile

[Ciccetto]

con quel codice invio il file al server (non mi ero accorto che avevo lasciato a meta')
ho gia studiato mi da sempre errore

The remote server returned an error: (550) File unavailable (e.g., file not found, no access).
invece il file è presente
la pass l ip e l username sono giuste

[oregon]

A questo punto, o tu non hai capito la risposta o io non ho capito la domanda.

[Ciccetto]

Originariamente inviato da oregon
A questo punto, o tu non hai capito la risposta o io non ho capito la domanda.

Dim request As FtpWebRequest = DirectCast(WebRequest.Create("ftp://" & TextBox2.Text &"/var/etc/test.cfg"), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.DownloadFile
request.Credentials = New NetworkCredential(TextBox3.Text, TextBox4.Text)
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
Dim responseStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(TextBox1.Text)
Console.WriteLine(reader.ReadToEnd())
Console.WriteLine("Download Complete, status {0}", response.StatusDescription)
reader.Close()
response.Close()

ok partiamo dall inizio con questo codice mi da quest eccezione...

The remote server returned an error: (550) File unavailable (e.g., file not found, no access).

dove sbaglio??

[Ciccetto]

risolto grazie lo stesso

[alka]

Originariamente inviato da Ciccetto
risolto grazie lo stesso

Il linguaggio va indicato anche nel titolo, come da Regolamento: qui l'ho aggiunto io.

Inoltre, se si trova autonomamente la soluzione al problema, questa andrebbe riportata in modo che sia utile a chiunque si trovi in futuro nella medesima situazione: questo è lo spirito del forum.

[Ciccetto]

Originariamente inviato da alka
Il linguaggio va indicato anche nel titolo, come da Regolamento: qui l'ho aggiunto io.

Inoltre, se si trova autonomamente la soluzione al problema, questa andrebbe riportata in modo che sia utile a chiunque si trovi in futuro nella medesima situazione: questo è lo spirito del forum.

si lo so anch io ne gestisto uno!

con questo codice puoi fare download del file

e se per caso il server e out
io ho aggiunto try catch per le mie esigenze


Dim uri As New Uri("ftp://" & TextBox2.Text & "/directory.txt")
If (uri.Scheme = uri.UriSchemeFtp) Then
Dim request As FtpWebRequest = FtpWebRequest.Create(uri)
request.Method = WebRequestMethods.Ftp.DownloadFile
request.Credentials = New NetworkCredential(TextBox3.Text, TextBox4.Text)
request.UseBinary = False
request.Timeout = 5000

request.Proxy = Nothing
request.KeepAlive = False

Dim response As FtpWebResponse = request.GetResponse()
Dim reader As New StreamReader(response.GetResponseStream())
Dim tmp As String = reader.ReadToEnd()
response.Close()

Me.RichTextBox1.Text = tmp
End If