Compilare TreeView con dati FTP

If IsNothing(_parent) Then
            Me.tv.Nodes.Clear()
        Else
            _parent.Nodes.Clear()
        End If

        Dim Z As ftp = New ftp()
        Z.UserName = ""
        Z.Password = ""
        Z.Host = ""


        'Directory nella root
        Dim lDir() As String = Z.ListDirectory(thedir).Split(vbLf)
        Dim dName As String


        For Each k As String In lDir
            If k = "" Then
                Exit Sub
            End If
            If Not k.Contains("<DIR>") Then
                Continue For
            End If

            dName = Mid(k, k.IndexOf("<DIR>") + 6, k.Length)
            dName = Replace(LTrim(RTrim(dName)), vbCr, "")
            Dim p As New System.Windows.Forms.TreeNode(dName, 0, 0)
            p.Tag = thedir & "/" & dName
            If IsNothing(_parent) Then
                Me.tv.Nodes.Add(p)
            Else                
                _parent.Nodes.Add(p)
            End If

'file
-rw-rw-r--    1 1323995    membri            262 Feb  2 11:11 File.txt
'cartella
drwxrwxr-x    2 1323995    membri           4096 Feb  2 11:43 Cartella

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

For Each F as String in ListFiles(URI, Credentials)
     If F.StartsWith("d") Then
         'codice per le cartelle
     Else
         'codice per i files
     End If
Next

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra