Public Function CreaPath(ByVal ftpPath As String) As Boolean

        Dim CartelleSplit As New ArrayList
        CartelleSplit.AddRange(If(ftpPath.StartsWith("/") = True, ftpPath.Remove(0, 1).Split("/"), ftpPath.Split))

        Dim CartelleComposte As New ArrayList

        Dim NomeCartella As String = Nothing

        For i As Integer = 0 To CartelleSplit.Count - 1
            NomeCartella += "/" & CartelleSplit.Item(i)
            CartelleComposte.Add(NomeCartella)
        Next

        Try

            For N As Integer = 0 To CartelleComposte.Count - 1
                Dim cartelladaricercare As String = CartelleComposte.Item(N).Substring(CartelleComposte.Item(N).LastIndexOf("/") + 1)
                Dim cartellaincuiricercare As String = CartelleComposte.Item(N).Substring(0, CartelleComposte.Item(N).LastIndexOf("/") + 1)

                 If CercainCartella("/" & cartellaincuiricercare, cartelladaricercare) = False Then
                    CreaSingolaCartella("/" & cartellaincuiricercare & "/" & cartelladaricercare)
                End If
            Next

            Return True

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Attenzione", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return False
        End Try

    End Function