FTP.ListDirectoryDetails / Unerklärlicher "Freeze" bei rekursivem Vorgehen

  • VB.NET

    FTP.ListDirectoryDetails / Unerklärlicher "Freeze" bei rekursivem Vorgehen

    Hallo,

    Ich versuche mich gerade in einem FTP-Client. Allerdings schiesst sich das Programm "ohne jegliche Erklärung" an einer bestimmten Stelle ab...
    Es gibt keine Exception, es ist kein Timeout, im Debug Modus hört der Code einfach an einer Stelle auf, und die App stuckt...

    Hier mal der code: Das ganze befindet sich in einer FTPConnector Klasse (die ich gerade schreibe) und _xxx sind private variablen:
    Die MSBoxen dienen zum "dirty debugging" :)

    Die Ordner Struktur des Servers sieht zunächst so aus:

    DIR Allgemein
    --> FILE test.txt
    DIR bnb
    --> DIR Ajax
    ---->FILE ajax.html

    und genau bis hierhin läuft das script und bricht dann - ohne kommentar - an der Stelle "downloadResponse = downloadRequest.GetResponse" ab....
    starte ich mit der "Active dir" bei bnb, so liest er aber munter weiter und die unterordner aus....

    VB.NET-Quellcode

    1. Public Function GetDataList()
    2. Return GetDataListIntern(_Server, _ActiveDir)
    3. End Function
    5. Private Function GetDataListIntern(ByVal server As String, ByVal curPath As String)
    6. Dim downloadResponseStream As Stream
    7. Dim fileStream As FileStream
    8. Dim downloadResponse As FtpWebResponse
    10. 'connect to server, and get file List
    11. Dim downloadRequest As FtpWebRequest = WebRequest.Create(server & "/" & curPath)
    12. downloadRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails
    13. downloadRequest.Credentials = New NetworkCredential(_Username, _Password)
    14. downloadRequest.Proxy = Nothing
    16. downloadResponse = downloadRequest.GetResponse
    17. downloadResponseStream = downloadResponse.GetResponseStream
    19. 'StreamReader
    20. Dim downloadReader As StreamReader
    21. downloadReader = New StreamReader(downloadResponseStream, System.Text.Encoding.UTF8)
    23. 'foreach lines...
    24. While downloadReader.EndOfStream = False
    25. Dim aLine As String = downloadReader.ReadLine()
    26. If aLine.StartsWith("d") Then
    27. 'this is a folder
    28. 'get the folder name first
    29. Dim expArray() As String = aLine.Split(" ")
    31. 'so call recursive function to download all content
    32. MsgBox(aLine & " represends a folder: " & expArray(expArray.Length - 1) & " path is: " & curPath & expArray(expArray.Length - 1) & "/")
    33. GetDataListIntern(server, curPath & expArray(expArray.Length - 1) & "/")
    34. Else
    35. 'this is a file
    36. 'get the file name first
    37. Dim expArray() As String = aLine.Split(" ")
    39. 'so call recursive function to download all content
    40. MsgBox(aLine & " represends a file: " & expArray(expArray.Length - 1))
    41. End If
    42. End While
    43. End Function

Facebook
Telefonspende