Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String
Dim sFolder As String
 
ende1:
On Error GoTo fehler
 
' URL-Link der Datei, die heruntergeladen werden soll
sURL = List1.Text
 
Dim nPos As Long
nPos = InStrRev(sURL, "/")
sFileName = Mid$(sURL, nPos + 1)
 
' Dateiname auf dem lokalen System
sLocalFile = Form2.Text1.Text & "\" & sFileName
 
' Download ausführen
Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal
 
' Rückgabewert auswerten
If lResult = 0 Then
  List1.ListIndex = List1.ListIndex + 1
  GoTo start
Else
  MsgBox "Download beendet"
  List2.Enabled = True
End If
 
' Status einblenden: Bitte warten...
Screen.MousePointer = vbHourglass
lblStatus.Caption = "Bitte warten..."
lblStatus.Visible = True
DoEvents
 
' Download ausführen
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
 
' Status wieder ausblenden
lblStatus.Visible = False
Screen.MousePointer = vbNormal

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln