Dim twFiles As TreeView = Form1.twFiles
        Dim FileInfos() As String
        Dim FileInfo() As String
        Dim Folders As New List(Of FolderInfo)
        Dim IsFirst As Boolean = True
        Dim ActualValue As Integer
        Dim ActualNode As New TreeNode
        twFiles.Nodes.Add(Host.URI.ToString)
        Folders.Add(New FolderInfo(Host.URI.ToString, Host.URI, twFiles.Nodes(0)))
        ActualValue = Host.URI.ToString.Length + 1
        While Folders.Count <> 0
            ActualNode = Folders.Item(0).Node
            lbProg.Text = "Connetto " & Folders.Item(0).URI.ToString & "..."
            Host = New Server(Folders.Item(0).URI, Host.Credentials)
            FileInfos = Host.ListFiles()
            If FileInfos Is Nothing Then Exit Sub
            If FileInfos.Length = 0 Then
                ActualNode.Nodes.Add("(Vuoto)", "(Vuoto)")
                ActualNode.Nodes("(Vuoto)").Tag = "0"
            End If
            For Each F As String In FileInfos
                FileInfo = Split(F)
                If FileInfo(0).StartsWith("d") Then
                    Folders.Add(New FolderInfo(FileInfo(FileInfo.Length - 1), New Uri(Host.URI.ToString & FileInfo(FileInfo.Length - 1) & "/"), ActualNode.Nodes.Add(FileInfo(FileInfo.Length - 1), FileInfo(FileInfo.Length - 1) & " (Cartella di file)")))
                    ActualNode.Nodes(FileInfo(FileInfo.Length - 1)).Tag = Host.URI.ToString & FileInfo(FileInfo.Length - 1) & "/"
                Else
                    ActualNode.Nodes.Add(FileInfo(FileInfo.Length - 1), FileInfo(FileInfo.Length - 1))
                    ActualNode.Nodes(FileInfo(FileInfo.Length - 1)).Tag = Host.URI.ToString & FileInfo(FileInfo.Length - 1)
                End If
            Next
            Folders.RemoveAt(0)
            IsFirst = False
        End While