@echo off
REM ===========================================================
REM Batch de chargement des fichiers listes.
REM Ce batch est lancé automatiquement 2 fois par jour:
REM  -le matin à 7h00
REM  -A la mi-journée à 12h30
REM 
REM ==========================================================


Title Telechargement d^'une liste d^'URL dans un document .txt 
mode con cols=180 lines=50 & Color A
Set Source=%~dp0
Set Fichier=C:\wamp64\www\hlist_generator\listes\URL_liste_RNE.txt
Set DownloadFolder=DownloadFolder
Set Destination=%Source%%DownloadFolder%
if not exist %DownloadFolder% MD %DownloadFolder%
for /F "delims=" %%i in (%Fichier%) do (echo Downloading "%%i" & call:download "%%i" "%Destination%\%%~ni%%~xi")
exit /b



REM Téléchargement des fichiers
REM ==========================================================
:download
(echo src = "%~1"
echo Set v1 = CreateObject("MSXML2.XMLHTTP"^)
echo Set FSO = Createobject("Scripting.FileSystemObject"^)
echo v1.open "GET", src, false
echo v1.send
echo If v1.Status = 200 Then
echo Wscript.Echo "Download-Status: " ^& v1.Status ^& " " ^& v1.statusText
echo Set v2 = CreateObject("ADODB.Stream"^)
echo v2.open
echo v2.Type = 1
echo v2.Write v1.ResponseBody
REM echo If FSO.Fileexists("%~2"^) Then FSO.DeleteFile("%~2"^)
echo v2.Position = 0
echo v2.SaveToFile "%~2"
echo Wscript.Echo "Download-Status: " ^& v1.Status ^& vbTab ^& v1.statusText ^& vbCrlf ^& "%~2",Vbinformation,"OK Telecharge avec succes !"
echo End If
echo v2.Close
echo Set v1 = Nothing) >"%~dpn0.vbs"
Cscript.exe //nologo "%~dpn0.vbs"
del "%~dpn0.vbs" >nul)