Скачивание несколько Файлов - Скрипт скачивает 2 копии файла указанного по первой ссылке

strFileURL1 = "прямая ссылка на файл 1" 
strFileURL2 = "прямая ссылка на файл 2" 
strHDLocation = "D:\file1.txt" 'куда качать 1 файл
strHDLocation2 = "E:\Temp\trash.txt" 'куда качать 2 файл
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") 
   objXMLHTTP.open "GET", strFileURL1, false 
     objXMLHTTP.open "GET", strFileURL2, false 
   objXMLHTTP.send() 
If objXMLHTTP.Status = 200 Then 
Set objADOStream = CreateObject("ADODB.Stream") 
objADOStream.Open 
objADOStream.Type = 1 
objADOStream.Write objXMLHTTP.ResponseBody 
objADOStream.Position = 0 
Set objFSO = Createobject("Scripting.FileSystemObject") 
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation 
If objFSO.Fileexists(strHDLocation2) Then objFSO.DeleteFile strHDLocation 
Set objFSO = Nothing 
objADOStream.SaveToFile strHDLocation 
objADOStream.SaveToFile strHDLocation2 
objADOStream.Close 
Set objADOStream = Nothing 
End if 
 Set objXMLHTTP = Nothing

set d = CreateObject("Scripting.Dictionary")
d.Add "0", "прямая ссылка на файл 1|D:\file1.txt"
d.Add "1", "прямая ссылка на файл 2|E:\Temp\trash.txt"
 
Set x = CreateObject("MSXML2.XMLHTTP")
 
For Each i In d     
 x.open "GET", Split(d.Item(i), "|")(0), false
 x.send()
 If x.Status = 200 Then
  With CreateObject("ADODB.Stream")
   .Open
   .Type = 1
   .Write x.ResponseBody
   .Position = 0
   .SaveToFile Split(d.Item(i), "|")(1), 2
   .Close
  End With
 End If
Next