Wetterdaten aus dem Web importieren in Form einer Zip

[maninweb]

Hallo,

versuche es mal mit folgendem Code ...

Code:

Option Explicit
 
  Private Declare PtrSafe Function apiDownloadFile Lib "urlmon" _
          Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, _
          ByVal szFileName As String, ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As LongPtr
 
  Private Declare PtrSafe Function apiDeleteCache Lib "wininet.dll" _
          Alias "DeleteUrlCacheEntry" (ByVal lpszUrlName As String) As Long
 
  Public Sub Download()
     
      Dim dieUrl    As String
      Dim dasZiel   As String
      Dim myResult  As LongPtr
     
      dieUrl = "https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/daily/kl/historical/tageswerte_KL_00001_19370101_19860630_hist.zip"
     
      apiDeleteCache dieUrl
     
      dasZiel = "D:\Downloads\" & StrReverse(Split(StrReverse(dieUrl), "/")(0))
      myResult = apiDownloadFile(0, dieUrl, dasZiel, 0, 0)
     
  End Sub

Dem Downloadziel sollte ein Dateiname mit übergeben werden. apiDeleteCache löscht zuvor den Cache für die URL.
Ausserdem sollte nicht direkt auf C: heruntergeladen werden, kann sein, dass Windows das unterbindet. Code
prüft hier nicht, ob die Datei bereits vorhanden ist.

Gruß