Option Explicit
' Anpassungen von Sabina Y-B'
Private Declare Function URLDownloadToFile Lib "urlmon.dll" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Sub Runter_Damit()
Dim strUrl As String
Dim strDatei As String
Dim lngDatei As Long
strDatei = "C:\DeinPfad\NeueDatei.zip"
lngDatei = URLDownloadToFile(0, Url, Pfad, 0, 0)
If lngDatei(strquellpfad, strzielpfad) = 0 Then
MsgBox "Download erfolgreich"
Else
MsgBox "Download nicht erfolgreich"
End If
End Sub