FTP List directory per Webclient

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von setherus.

    FTP List directory per Webclient

    Hallo,

    ich versuche auf einem FTP server zuzugreifen, da das directory auslesen, und bei allen gefundenen dateien zu schauen ob es ein gesuchtes format ist, und diese dann downzuloaden

    ich habe das per Webclient aus system.net soweit gelöst das ich eine verbindung aufbauen kannn, und der download funktioniert auch, aber ebent nur mit statischen werten, ich kenn leider nur die endungen der gesuchten dateien
    in dem codebespiel versuch ich es mit dem dir befehl...was einfach einen leeren string ergibt
    ich hab auch schon an die webclient.container.components gedacht hab aber damit keine lösung hinbekommen :(


    kann mir da vl jemand helfen???

    vielen dank im vorraus

    Quellcode

    1. Imports System.Net
    3. Public Class clsFTP
    5. Dim _Host As String
    6. Dim _User As String
    7. Dim _Passwort As String
    8. Dim defuri
    9. Dim contrue As Boolean
    10. Dim aus As String
    11. Dim myFTP As New WebClient
    12. Dim file
    13. Dim kind
    14. Dim successkind, count
    15. Dim expression
    16. Dim lookuppath
    18. Public Sub conn(ByVal sHost As String, ByVal sUser As String, ByVal sPasswort As String)
    19. _Host = sHost
    20. _User = sUser
    21. _Passwort = sPasswort
    23. myFTP.Credentials = New Net.NetworkCredential(_User, _Passwort)
    24. myFTP.BaseAddress = _Host
    25. defuri = New System.Uri(_Host)
    27. ' myFTP.Site = defuri
    28. contrue = myFTP.IsBusy
    30. End Sub
    31. Public Function getfile(ByVal search As String)
    32. Dim filename As String
    33. If Not search = "" Then
    34. filename = search
    35. contrue = myFTP.IsBusy
    36. 'Streamreader
    37. ' Dim stream_reader As New IO.StreamReader(myFTP.OpenRead(_Host & "/" & filename))
    38. ' aus = stream_reader.ReadToEnd()
    39. ' MsgBox(aus)
    41. myFTP.DownloadFile(_Host & "/" & filename, "C:\testforfrench\" & filename)
    42. End If
    43. End Function
    45. Public Function check(ByVal searchkind)
    46. check = ""
    48. If Not searchkind = "" Then
    49. Dim all As WebHeaderCollection
    50. Dim files()
    51. all = myFTP.ResponseHeaders
    53. file = Dir(_Host & "\*." & searchkind)
    55. If file <> "" Then
    56. Do Until successkind = True
    57. kind = Microsoft.VisualBasic.Right(file, count)
    58. If Microsoft.VisualBasic.Left(kind, 1) = "." Then
    59. expression = kind
    60. successkind = True
    61. End If
    62. count = count + 1
    63. Loop
    64. If kind = LCase("." & searchkind) Then
    65. check = file
    66. Else
    67. check = ""
    68. End If
    69. End If
    70. End If
    71. End Function
    73. End Class

    puh, WebClient
    ?Da kann ich dir net helfen... aber mit WebRequest schon :D

    VB.NET-Quellcode

    1. Private Sub Button1_Click
    3. Dim request As Net.FtpWebRequest = Net.FtpWebRequest.Create("ftp://" & TextBox1.Text & "/")
    4. request.Method = Net.WebRequestMethods.Ftp.ListDirectory
    5. request.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
    7. Dim response As Net.FtpWebResponse = request.GetResponse()
    8. .ListBox1.Items.Clear()
    9. Using myReader As New IO.StreamReader(response.GetResponseStream())
    10. Do While myReader.EndOfStream = False
    11. .ListBox1.Items.Add(myReader.ReadLine())
    12. Loop
    13. End Using
    15. ---Zum öffnen eines Ordners---
    17. Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
    18. Dim web As New Net.WebClient
    19. TextBox7.Text = "ftp://" &.TextBox1.Text & ListBox1.SelectedItem & "/"
    20. TextBox6.Text = TextBox6.Text & vbCrLf & ListBox1.SelectedItem & "/"
    22. Dim request As Net.FtpWebRequest = Net.FtpWebRequest.Create("ftp://" & TextBox1.Text & "/" & ListBox1.SelectedItem)
    23. request.Method = Net.WebRequestMethods.Ftp.ListDirectory
    24. request.Credentials = New Net.NetworkCredential(TextBox2.Text,TextBox3.Text)
    25. Dim response As Net.FtpWebResponse = request.GetResponse()
    26. ListBox1.Items.Clear()
    27. Using myReader As New IO.StreamReader(response.GetResponseStream())
    28. Do While myReader.EndOfStream = False
    29. ListBox1.Items.Add(myReader.ReadLine())
    30. Loop
    31. End Using


    Ich hoffe, ich konnte dir weiterhelfen...

    mfg

Facebook
Telefonspende