Private Sub ListFtpFolder(ByVal listUrl As String)
        Dim reader As StreamReader = Nothing
        Dim cred As New NetworkCredential("Ich", "sehr geheim")
        Try
            Dim listRequest As FtpWebRequest = CType(WebRequest.Create( _
              listUrl), FtpWebRequest)
            listRequest.Credentials = cred
            listRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails
            Dim listResponse As FtpWebResponse = CType(listRequest.GetResponse( _
              ), FtpWebResponse)
            reader = New StreamReader(listResponse.GetResponseStream())
            Do While reader.Peek <> -1
                Dim s As String = reader.ReadLine
                Dim rights As String = s.Substring(0, 10) 'Die Datei rechte
                Dim Size As String = s.Substring(24, 8) 'Größe der Datei
                Dim datum As String = s.Substring(32, 14) 'Erstellungsdatum
                Dim FName As String = s.Substring(46) 'Name
                Dim it As New ListViewItem
                'Icons zuweisen
                If rights.StartsWith("d") Then
                    it.ImageIndex = 0
                Else
                    it.ImageIndex = 1
                End If
                it.Text = FName
                it.SubItems.Add(rights)
                it.SubItems.Add(datum)
                it.SubItems.Add(Size)
                ListView1.Items.Add(it)
            Loop
            Label2.Text = "List complete"
        Catch ex As UriFormatException
            MsgBox(ex.Message)
        Catch ex As WebException
            MsgBox(ex.Message)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If reader IsNot Nothing Then
                reader.Close()
            End If
        End Try
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus