[VB.NET] Visualizzare la root di un server FTP

[x69asterix]

volevo sapere dove posso trovare della documentazione per visualizzare la root del mio ftp,
per caricare un file uso:

Public Class Form1
    Dim invia As New System.Net.WebClient

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        invia.Credentials = New System.Net.NetworkCredential("user", "pass")
        invia.UploadFile("ftp://xxx.xxx.org/File/" + My.Computer.FileSystem.GetName(OpenFileDialog1.FileName).ToString, TextBox4.Text)
        MsgBox("ok")
        ' ListBox1.Items.Add()

    End Sub

ma per visualizzare la root come si procede?

[x69asterix]

allora diciamo che ho trovato qualcosa, però ho un problema mi carica tutta la lista su di unica riga della ListBox, perchè?

        ' Get the object used to communicate with the server.
        Dim request As FtpWebRequest = CType(WebRequest.Create("ftp://xx.xx.org/"), FtpWebRequest)
        request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        ' This example assumes the FTP site uses anonymous logon.
        request.Credentials = New NetworkCredential("xx", "xx")
        Dim response As FtpWebResponse = CType(request.GetResponse, FtpWebResponse)
        Dim responseStream As Stream = response.GetResponseStream
        Dim reader As StreamReader = New StreamReader(responseStream)
        ' Console.WriteLine(reader.ReadToEnd)
        '  Console.WriteLine("Directory List Complete, status {0}", response.StatusDescription)
        ListBox1.Items.Add("Directory List Complete, status {0}" & response.StatusDescription)
        reader.Close()

        response.Close()

[oregon]

Veramente, il codice che hai mostrato (mi sembrano vari pezzi incollati ...) non mostra nulla ...

[x69asterix]

ciao.
allora l'ho notato pure io, però praticamente in debug nella finestra di outuput mi visualizza il contenuto della root, ma nella listb non mi aggiunge il risultato

       Dim request As FtpWebRequest = CType(WebRequest.Create("ftp://xx.xx.org/"), FtpWebRequest)
        request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        ' This example assumes the FTP site uses anonymous logon.
        request.Credentials = New NetworkCredential("xx", "xx")
        Dim response As FtpWebResponse = CType(request.GetResponse, FtpWebResponse)
        Dim responseStream As Stream = response.GetResponseStream
        Dim reader As StreamReader = New StreamReader(responseStream)
        Console.WriteLine(reader.ReadToEnd)
        Console.WriteLine("Directory List Complete, status {0}", response.StatusDescription)
        ListBox1.Items.Add(response.StatusDescription)
        reader.Close()
        response.Close()

drwxrwxr-x    2 577838   membri       4096 Nov 18 17:11 File
-rw-rw-r--    1 577838   membri        353 Nov 15 08:36 image339.gif
-rw-rw-r--    1 577838   membri       3961 Nov 15 11:10 index.php
-rw-rw-r--    1 577838   membri        315 Nov 13 18:14 index.wml
-rw-rw-r--    1 577838   membri       5528 Nov 14 15:11 meteo.php
drwxrwxr-x    2 577838   membri       4096 Nov 12 08:49 php5
drwxrwxr-x   10 577838   membri       4096 Nov 13 06:56 phpBB2

Directory List Complete, status 226-ASCII
226-Options: -l 
226 7 corrispondenze totali

[oregon]

Beh ... mi sembra ovvio ... hai visto che usi la

Console.WriteLine

per scrivere nella Console (e quindi nella finestra di debug)?

Quella informazione andrebbe nella listbox ... ovviamente non con la ReadAll ...

In ogni caso, il codice e' caotico ... dovrebbe essere

        
Dim req As FtpWebRequest = FtpWebRequest.Create("ftp://ftp.xxx.com")
req.Credentials = New NetworkCredential("xx", "xx")
req.Method = WebRequestMethods.Ftp.ListDirectoryDetails

Dim sr As New StreamReader(req.GetResponse().GetResponseStream())
Dim str As String = sr.ReadLine()

While Not str Is Nothing
   ListBox1.Items.Add(str)
   str = sr.ReadLine()
End While

sr.Close()
sr = Nothing
req = Nothing

P.S. Comunque, se programmi "incollando" vari pezzi, non arriverai mai a capire il codice e a scrivere programmi validi ... dovresti "studiare" le varie componenti in maniera accurata prima di usarle ...

[x69asterix]

ok,
grazie