ich lade öfters mehrere PDF-Dateien die alle so zwischen 10 bis 20MB haben herunter. Und um unser Netz nicht während des Tages zu belasten habe ich die URL-Links in eine Excel-Tabelle eingetragen und lasse das Programm Nachts laufen.
Jetzt kommt es aber manchmal vor, dass eine Datei nur ganz langsam (0,2kB/sec) daher kommt. Ich möchte dann diesen Download abbrechen und einen anderen beginnen, der dann besser vielleicht besser läuft.
Hier mal der betreffende Code-Auszug
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" 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 SavePDF()
For Each LinkAnzahl In ActiveSheet.Hyperlinks
Nummer = Nummer + 1 ' Zähler erhöhen
UrlAdr = ActiveSheet.Hyperlinks(Nummer).Address 'Url des Objektes ermitteln
NameFile = ActiveSheet.Hyperlinks(Nummer).Range 'File Name des Objektes ermitteln
AdrNameFile = "c:\Download\automatisch\" & NameFile 'Speicheradresse erzeugen
URLDownloadToFile 0, UrlAdr, AdrNameFile, 0, 0
Next
End Sub
--------------------------------
Hat jemand eine Idee, wie ich die Funktion URLDownloadToFile unterbrechen kann, wenn nach einiger Zeit die Downloadrate unter einem bestimmten Wert liegt?
Für eine Info wär ich dankbar.
Frieder