Linkliste downloaden

[FelixWeb]

Hallo,

ich habe eine Liste mit Internetlinks zu Dateien (1465 Stück) in Spalte A und die dazugehörigen Namen in Spalte B.

ich würde gerne alle Links downloaden und entsprechend benennen.

Die Schleife habe ich schon.

Ich habe das mal mit Filecopy versucht... Funktioniert leider nicht.

Gibt es für das Problem einen Befehl?

Code:

Sub download()

Dim sourceURL As String
Dim targetFile As String

For i = 1 To 1465

    sourceURL = Cells(i, 1)
   targetFile = "Y:\Test\" & Cells(i, 2)

   FileCopy sourceURL, targetFile

Next i

End Sub

[WillWissen]

Push!

[schauan]

Hallöchen,

so einfach geht das nicht ...
Schaue Dir mal die Lösung von mumpel an, in diesem Beitrag:
http://forum.chip.de/office/datei-downlo...88188.html