Private Sub cmdSave_Click()
Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
Dim i
 
For i = List1.ListCount To 0 Step -1
 
    ' URL-Link der Datei, die heruntergeladen werden soll
    sURL = txtURL.Text & List1.List(i)
 
    ' Dateiname auf dem lokalen System
    sLocalFile = txtPath & List1.List(i)
 
    ' Download ausführen
    'Aufruf der API-Funktion URLDownloadToFileA
    lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
 
Next i
MsgBox "habe fertig"
End Sub