FTP Programm mehrere Dateien auf einmal herunderladen und hochladen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von slim.

    FTP Programm mehrere Dateien auf einmal herunderladen und hochladen

    Hey,

    bin dabei ein FTP Programm mit VB.NET zu programieren nun hab ich folgendes Problem ich möchte mehrere Dateien von dem FTP Server herunterladen.
    Einzelne Dateien herunterzuladen ist kein Problem nur mit mehreren auf einmal wird es für mich schwierig...
    Ich lasse mir bis jetzt die Dateien die auf dem Server liegen in einer ListBox anzeigen und möchte jetzt halt das er alle einzelnen Dateien herunterläd.

    Hier ma ein Bild von meinem Programm:




    hab schon mehrere Möglichkeiten probiert...



    VB.NET-Quellcode

    1. ' For Each Zeile As String In ListBox1.Items
    2. 'My.Computer.Network.DownloadFile(ftpserver & Zeile,
    3. 'txtdownpath.Text + "/" + Zeile, Benutzername, passwort)
    4. ' Exit For
    5. ' My.Computer.Network.DownloadFile(ftpserver & Zeile,
    6. 'txtdownpath.Text + "/" + Zeile, Benutzername, passwort)
    7. 'Next


    und


    VB.NET-Quellcode

    1. Dim i As Single
    2. For i = 0 To x Step 1
    3. lbeinträge = ListBox1.Items(i).ToString()
    4. My.Computer.Network.DownloadFile(ftpserver & lbeinträge,
    5. txtdownpath.Text + "/" + lbeinträge, Benutzername, passwort)
    6. Next



    und



    VB.NET-Quellcode

    1. Dim wc As New WebClient
    2. wc.Credentials = New NetworkCredential(Benutzername, passwort)
    3. wc.Encoding = System.Text.Encoding.Default
    4. wc.Headers.Add("Content-Type", "binary/octet-stream")
    5. Dim uri As New Uri(ftpserver) '& TextBox2.Text)
    6. Dim Datei
    7. For Each Datei In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
    8. wc.UploadFile(uri, "POST", Datei)
    9. Next





    VB.NET-Quellcode

    1. ' Dim wc As New WebClient
    2. ' For Each foundFile As String In My.Computer.FileSystem.GetFiles _
    3. '(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
    4. ' wc.UploadFile("ftpserver", "POST", foundFile)
    5. ' Next




    Das funktioniert aber alles nicht richtig ist auch warscheinlich vollkommen falsch...
    Schleifen sind auch nicht so mein Ding :D
    Muss auch nicht unbedingt mit einer Schleife gearbeitet werden, aber geht warscheinlich nicht anders.

    könnt ihr mir vielleicht helfen wäre echt cool!
    Danke schon mal!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „slim“ ()