Hallo liebe VB'ler,
ich sitze seit langen an einem Projekt und dieses wird immer umfangreicher.
Ich bastle gerade an einem Downloader der Sounds von Mediafire runterlädt. Er besteht aus einem Button mit dem man den Zielordner bestimmt, zwei Textboxen, einer Listbox mit den Namen der Sounds und einem weiteren Button zum downloaden.
Die Funktionsweise besteht darin, dass man sich via FolderBrowserDialog einen Zielordner aussucht, der in die zwei Textboxen gespeichert wird und der gespeicherte Pfad dann wieder von dem Download-Button bearbeitet wird, damit die Datei so wie der ausgewählte Listbox-Eintrag heißt und kein fester Pfad von mir bestimmt werden muss (wollte keinen festen Ordner benutzen, weil ich das doof finde & den Usern nicht diese Freiheit nehmen möchte).
Der Code ist wie folgt:
So weit so gut, das ganze klappt auch ohne Probleme, solange ich die ListBox-Eigenschaft "SelectionMode" auf One stehen lasse.
Ich habe jetzt aber keinen Bock meine Leute jeden Sound, den sie wollen, einzeln downloaden zu lassen, denn es werden um die 360 sein und deswegen habe ich den SelectionMode auf MultiExtended gestellt, damit man mehrere Einträge auswählen kann.
Der Download klappt bloß nicht recht, denn es wird nur der aller erste Eintrag der Listbox heruntergeladen, die danach folgenden nicht. Ich bin mir ziemlich sicher, dass das an den If-Bedinungen liegt, aber bei dem Quatsch den ich da manchmal zusammen code kann es alles sein.
Nun bin ich aber trotzdem mit meinen "Probieren geht über studieren"-Fähigkeiten am Ende.
Könnt ihr dem "Neuling" hier bitte helfen? Bin für jeden Vorschlag offen und für jede Verbesserung, denn das meine Codes nicht die drallsten sind weiß ich.
Grüße,
DEVILvenusxD
ich sitze seit langen an einem Projekt und dieses wird immer umfangreicher.
Ich bastle gerade an einem Downloader der Sounds von Mediafire runterlädt. Er besteht aus einem Button mit dem man den Zielordner bestimmt, zwei Textboxen, einer Listbox mit den Namen der Sounds und einem weiteren Button zum downloaden.
Die Funktionsweise besteht darin, dass man sich via FolderBrowserDialog einen Zielordner aussucht, der in die zwei Textboxen gespeichert wird und der gespeicherte Pfad dann wieder von dem Download-Button bearbeitet wird, damit die Datei so wie der ausgewählte Listbox-Eintrag heißt und kein fester Pfad von mir bestimmt werden muss (wollte keinen festen Ordner benutzen, weil ich das doof finde & den Usern nicht diese Freiheit nehmen möchte).
Der Code ist wie folgt:
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Public Class Form13
- Private Sub Form13_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Dim a As New RichTextBox
- a.Text = My.Resources.Grünes___Graues__und_Rotes_Design
- For i As Integer = 0 To a.Lines.Count - 1
- ListBox1.Items.Add(a.Lines(i))
- Next i
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- If FolderBrowserDialog1.ShowDialog() = DialogResult.OK
- Then TextBox1.Text = FolderBrowserDialog1.SelectedPath
- TextBox2.Text = FolderBrowserDialog1.SelectedPath
- End If
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- If ListBox1.SelectedItem = "360 Noscope! " Then
- TextBox1.Text = FolderBrowserDialog1.SelectedPath + "" + ListBox1.SelectedItem + ".mp3" My.Computer.Network.DownloadFile("http://download2185.mediafire.com/89rjp1g4e2qg/2kidn85v7jih1gy/", TextBox1.Text)
- End If
- If ListBox1.SelectedItem = "Ähm ja..." Then
- TextBox2.Text = FolderBrowserDialog1.SelectedPath + "" + ListBox1.SelectedItem + ".mp3" My.Computer.Network.DownloadFile("http://download974.mediafire.com/pa8ajhbcfo4g/rb7tciwaf90wrc6/", TextBox2.Text)
- End If
- End Sub
- End Class
So weit so gut, das ganze klappt auch ohne Probleme, solange ich die ListBox-Eigenschaft "SelectionMode" auf One stehen lasse.
Ich habe jetzt aber keinen Bock meine Leute jeden Sound, den sie wollen, einzeln downloaden zu lassen, denn es werden um die 360 sein und deswegen habe ich den SelectionMode auf MultiExtended gestellt, damit man mehrere Einträge auswählen kann.
Der Download klappt bloß nicht recht, denn es wird nur der aller erste Eintrag der Listbox heruntergeladen, die danach folgenden nicht. Ich bin mir ziemlich sicher, dass das an den If-Bedinungen liegt, aber bei dem Quatsch den ich da manchmal zusammen code kann es alles sein.
Nun bin ich aber trotzdem mit meinen "Probieren geht über studieren"-Fähigkeiten am Ende.
Könnt ihr dem "Neuling" hier bitte helfen? Bin für jeden Vorschlag offen und für jede Verbesserung, denn das meine Codes nicht die drallsten sind weiß ich.
Grüße,
DEVILvenusxD