Télécharger plusieurs fichiers depuis une URL

**francesco069** · 05/01/2020, 15h28

Bonjour à tous

je suis se que l'on appelle un novice
J'utilise un fichier trouvé sur le forum pour télécharger des fichiers via leurs URL.

Ce code je l'ai pris sur le forum et sur un message en réponse la solution vient d' Hackoofr. Le souci est qu'il ne fonctionne pas sur ce site.
https://cadastre.data.gouv.fr/data/d...ments/dep01,02....
Es ce qu'une âme charitable pourrais m'aider ou me dire pourquoi il ne fonctionne pas sur ce site, merci d'avance.

Je galère grave

depuis une semaine et je ne sais pas quoi faire….encor merci.

**dourouc05** · 05/01/2020, 16h11

Parles-tu bien de https://windows.developpez.com/telec...eur-de-fichier ?

**hackoofr** · 05/01/2020, 16h31

SVP, Ajouter le code source modifié pour voir ou se trouve le problème !
Tu veux télécharger seulement les deux premiers fichiers ? ou bien autre chose ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
https://cadastre.data.gouv.fr/data/dgfip-pci-vecteur/2019-10-01/dxf-cc/departements/dep01.zip
https://cadastre.data.gouv.fr/data/dgfip-pci-vecteur/2019-10-01/dxf-cc/departements/dep02.zip

**hackoofr** · 05/01/2020, 23h34

Vous pouvez tester ce vbscript sur mesure pour l'url que vous avez posté

**francesco069** · 06/01/2020, 16h32

Bonjour,

Merci beaucoup pour votre rapidité

,franchement ça fait plaisir de voir le soutient que l'on peut avoir sur ce forum.
je vais tester en rentrant à la maison, petite question les dossiers télécharger avec le fichier vbs iront dans quel dossier ?

Pour répondre à votre questions je peut être amener à télécharger n'importe lequel des départements je peux même avoir besoin de télécharger plus d'un département.

Une fois mon problème de téléchargement résolu.Si possible j'aimerais pouvoir au lancement du fichier vbs ou batch que l'on demande quel département on souhaite ?
EXEMPLE RÉPONSE : dep01 et ou dep69...

et à ce moment là il le télécharge ou les télécharges

Encore merci de prendre de votre temps pour répondre à mes questions.

Ci-dessous le code utilisé:

Code Batch :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
@echo off
Title Download Multi-Files by (C) by Hackoo 2018 
Color 37 & Mode 20,3    
echo(
echo        Please wait ... Downloading the file is in progress ...
Set "Downloader=%Temp%\Hackoo_Downloader.vbs"
Set "File=%~dp0URLS.txt"
If Not Exist "%File%" echo "%File%" does not exist & Timeout /T 5 /nobreak>nul & Exit
@For /f "delims=" %%F in ('Type "%File%"') do ( Call :Download "%%F" )
Exit
::*************************************************************************************
:Download <url>
(
echo Option Explicit
echo Const Copyright =" (C) by Hackoo 2018"
echo Dim Title : Title = "Download Files"
echo Const WHR_EnableRedirects = 6
echo Dim Base_Link,Dynamic_Link,Flag,Question,DirectLink,Save2File
echo Dim fso,ws,Temp,WaitingMsg,oExec
echo Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo Set ws = CreateObject^("WScript.Shell"^)
echo Temp = ws.ExpandEnvironmentStrings^("%%Temp%%"^)
echo If WSH.Arguments.Count = 0 Then
echo MsgBox "Usage in command line : "^& vbCrlf ^&_
echo "Cscript //nologo "^& DblQuote^(WSH.Scriptname^) ^& " " ^& DblQuote^("URL"^),_
echo vbExclamation,Title ^& Copyright
echo Wscript.Quit^(1^)
echo End If
echo Base_Link = wscript.Arguments^(0^)
echo If CheckDirectLink^(Base_Link^) = True Then 'Check if it is a direct link
echo Save2File = GetFileNamefromDirectLink^(Base_Link^)
echo If Save2File = "" Then
echo MsgBox "An unknown error has occurred ! Quitting the script !",vbCritical,Title
echo Wscript.Quit^(^)
echo End If
echo WaitingMsg = "Please wait ... The download of : <font color=Yellow>"^& DblQuote^(Save2File^) ^& "</font> is in progress ..."
echo Call CreateProgressBar^(Title,WaitingMsg^)'Creation of Waiting Bar
echo Call LaunchProgressBar^(^) 'Launch of the Waiting Bar
echo Call Download^(Base_Link,Save2File^)
echo pause^(3^)
echo Call CloseProgressBar^(^)
echo ws.Popup "The download of the file : "^& Save2File ^& vbCrlf ^& "is completed successfully ! ",3,Title,vbInformation
echo 'MsgBox "The download of the file : "^& Save2File ^& vbCrlf ^&_
echo '"is Completed !",vbInformation,Title
echo wscript.Quit^(^)
echo End If
echo Call GetHeaderLocation^(Base_Link^)
echo If Flag = True And CheckDirectLink^(GetHeaderLocation^(Base_Link^)^) = True Then 'Checking for a direct link of Malwarebytes
echo Save2File = GetFileNamefromDirectLink^(GetHeaderLocation^(Base_Link^)^)
echo If Save2File = "" Then
echo MsgBox "An unknown error has occurred ! Quitting the script !",vbCritical,Title
echo Wscript.Quit^(^)
echo End If
echo DirectLink = GetHeaderLocation^(Base_Link^)
echo 'wscript.echo DirectLink ^& vbCrlf ^& Save2File
echo 'Question = MsgBox^("Did you want to download this file ?" ^& vbCrlf ^&_
echo 'Save2File,vbQuestion+vbYesNo,Title^)
echo 'If Question = vbYes Then
echo If Save2File ^<^> "" Then
echo WaitingMsg = "Please wait ... The download of : <font color=Yellow>"^& DblQuote^(Save2File^) ^& "</font> is in progress ..."
echo Call CreateProgressBar^(Title,WaitingMsg^)'Creation of Waiting Bar
echo Call LaunchProgressBar^(^) 'Launch of the Waiting Bar
echo Call Download^(DirectLink,Save2File^)
echo Call CloseProgressBar^(^)
echo ws.Popup "The download of the file : "^& Save2File ^& vbCrlf ^& "is completed successfully ! ",3,Title,vbInformation
echo 'MsgBox "The download of the file : "^& Save2File ^& vbCrlf ^&_
echo '"is Completed !",vbInformation,Title
echo Wscript.Quit^(^)
echo End If
echo 'End If
echo ElseIf Instr^(Base_Link,"toolslib"^) ^<^> 0 And Flag = True Then 'for Adwcleaner
echo Dynamic_Link = Extract_Dynamic_Link^(GetDataFromURL^(Base_Link,"Get", ""^)^)
echo Save2File = GetFileName^(GetHeaderLocation^(Dynamic_Link^)^)
echo If Save2File = "" Then
echo MsgBox "An unknown error has occurred ! Quitting the script !",vbCritical,Title
echo Wscript.Quit^(^)
echo End If
echo 'Question = MsgBox^("The Dynamic Link is = "^& Dynamic_Link ^& vbcrlf ^& vbcrlf ^&_
echo '"Response of The Dynamic Link is : "^& vbcrlf ^& GetHeaderLocation^(Dynamic_Link^) ^& vbCrlf ^& vbCrlf ^&_
echo '"Extracted FileName is = " ^& Save2File,vbYesNo+vbQuestion,Title^)
echo 'If Question = vbYes Then
echo WaitingMsg = "Please wait ... The download of : <font color=Yellow>"^& DblQuote^(Save2File^) ^& "</font> is in progress ..."
echo Call CreateProgressBar^(Title,WaitingMsg^)'Creation of Waiting Bar
echo Call LaunchProgressBar^(^) 'Launch of the Waiting Bar
echo Call Download^(Dynamic_Link,Save2File^)
echo Call CloseProgressBar^(^)
echo ws.Popup "The download of the file : "^& Save2File ^& vbCrlf ^& "is completed successfully ! ",3,Title,vbInformation
echo 'wscript.echo "The download of the file : "^& Save2File ^& " is Completed !"
echo 'MsgBox "The download of the file : "^& Save2File ^& vbCrlf ^&_
echo '"is Completed !",vbInformation,Title
echo 'Else
echo Wscript.Quit^(^)
echo 'End If
echo ElseIf Instr^(Base_Link,"php"^) ^> 0 And Flag = False Then
echo Save2File = GetFileName^(GetHeaderLocation^(Base_Link^)^) ' for site of autoitscript.fr
echo If Save2File = "" Then
echo MsgBox "An unknown error has occurred ! Quitting the script !",vbCritical,Title
echo Wscript.Quit^(^)
echo End If
echo 'Question = MsgBox^("Did you want to download this file ?" ^& vbCrlf ^&_
echo 'Save2File,vbQuestion+vbYesNo,Title^)
echo 'If Question = vbYes Then
echo WaitingMsg = "Please wait ... The download of : <font color=Yellow>"^& DblQuote^(Save2File^) ^& "</font> is in progress ..."
echo Call CreateProgressBar^(Title,WaitingMsg^)'Creation of Waiting Bar
echo Call LaunchProgressBar^(^) 'Launch of the Waiting Bar
echo Call Download^(Base_Link,Save2File^)
echo pause^(3^)
echo Call CloseProgressBar^(^)
echo MsgBox "The download of the file : "^& Save2File ^& vbCrlf ^&_
echo "is Completed !",vbInformation,Title
echo 'Else
echo ' Wscript.Quit^(^)
echo 'End If
echo End If
echo '------------------------------------------------
echo Function GetHeaderLocation^(URL^)
echo On Error Resume Next
echo Dim h,GetLocation
echo Set h = CreateObject^("WinHttp.WinHttpRequest.5.1"^)
echo h.Option^(WHR_EnableRedirects^) = False
echo h.Open "HEAD", URL , False
echo h.Send^(^)
echo GetLocation = h.GetResponseHeader^("Location"^)
echo If Err = 0 Then
echo Flag = True
echo GetHeaderLocation = GetLocation
echo Else
echo Flag = False
echo GetHeaderLocation = h.GetResponseHeader^("Content-Disposition"^)
echo End If
echo End Function
echo '---------------------------------------------
echo Function GetFileName^(Data^)
echo Dim regEx, Match, Matches,FileName
echo Set regEx = New RegExp
echo regEx.Pattern = "\x27{2}(\w.*)"
echo regEx.IgnoreCase = True
echo regEx.Global = True
echo If regEx.Test^(Data^) Then
echo Set Matches = regEx.Execute^(Data^)
echo For Each Match in Matches
echo FileName = Match.subMatches^(0^)
echo Next
echo Else
echo Set regEx = New RegExp
echo regEx.Pattern = "\x22(\w.*)\x22"
echo regEx.IgnoreCase = True
echo regEx.Global = True
echo Set Matches = regEx.Execute^(Data^)
echo For Each Match in Matches
echo FileName = Match.subMatches^(0^)
echo Next
echo End If
echo GetFileName = FileName
echo End Function
echo '---------------------------------------------
echo Function Extract_Dynamic_Link^(Data^)
echo Dim regEx, Match, Matches,Dynamic_Link
echo Set regEx = New RegExp
echo regEx.Pattern = Base_Link ^& "\?s=[^""]*"
echo regEx.IgnoreCase = True
echo regEx.Global = True
echo Set Matches = regEx.Execute^(Data^)
echo For Each Match in Matches
echo Dynamic_Link = Match.Value
echo Next
echo Extract_Dynamic_Link = Dynamic_Link
echo End Function
echo '------------------------------------------------
echo Function GetDataFromURL^(strURL, strMethod, strPostData^)
echo Dim lngTimeout
echo Dim strUserAgentString
echo Dim intSslErrorIgnoreFlags
echo Dim blnEnableRedirects
echo Dim blnEnableHttpsToHttpRedirects
echo Dim strHostOverride
echo Dim strLogin
echo Dim strPassword
echo Dim strResponseText
echo Dim objWinHttp
echo lngTimeout = 59000
echo strUserAgentString = "http_requester/0.1"
echo intSslErrorIgnoreFlags = 13056 ' 13056: ignore all err, 0: accept no err
echo blnEnableRedirects = True
echo blnEnableHttpsToHttpRedirects = True
echo strHostOverride = ""
echo strLogin = ""
echo strPassword = ""
echo Set objWinHttp = CreateObject^("WinHttp.WinHttpRequest.5.1"^)
echo objWinHttp.SetTimeouts lngTimeout, lngTimeout, lngTimeout, lngTimeout
echo objWinHttp.Open strMethod, strURL
echo If strMethod = "POST" Then
echo objWinHttp.setRequestHeader "Content-type", _
echo "application/x-www-form-urlencoded"
echo End If
echo If strHostOverride ^<^> "" Then
echo objWinHttp.SetRequestHeader "Host", strHostOverride
echo End If
echo objWinHttp.Option^(0^) = strUserAgentString
echo objWinHttp.Option^(4^) = intSslErrorIgnoreFlags
echo objWinHttp.Option^(6^) = blnEnableRedirects
echo objWinHttp.Option^(12^) = blnEnableHttpsToHttpRedirects
echo If ^(strLogin ^<^> ""^) And ^(strPassword ^<^> ""^) Then
echo objWinHttp.SetCredentials strLogin, strPassword, 0
echo End If
echo On Error Resume Next
echo objWinHttp.Send^(strPostData^)
echo If Err.Number = 0 Then
echo If objWinHttp.Status = "200" Then
echo GetDataFromURL = objWinHttp.ResponseText
echo Else
echo GetDataFromURL = "HTTP " ^& objWinHttp.Status ^& " " ^& _
echo objWinHttp.StatusText
echo End If
echo Else
echo GetDataFromURL = "Error " ^& Err.Number ^& " " ^& Err.Source ^& " " ^& _
echo Err.Description
echo End If
echo On Error GoTo 0
echo Set objWinHttp = Nothing
echo End Function
echo '------------------------------------------------
echo Sub Download^(URL,Save2File^)
echo Dim File,Line,BS,ws
echo On Error Resume Next
echo Set File = CreateObject^("WinHttp.WinHttpRequest.5.1"^)
echo File.Open "GET",URL, False
echo File.Send^(^)
echo If err.number ^<^> 0 then
echo Line = Line ^& vbcrlf ^& "Error Getting File"
echo Line = Line ^& vbcrlf ^& "Error " ^& err.number ^& "(0x" ^& hex^(err.number^) ^& ") " ^& vbcrlf ^&_
echo err.description
echo Line = Line ^& vbcrlf ^& "Source " ^& err.source
echo MsgBox Line,vbCritical,"Error getting file"
echo Err.clear
echo wscript.quit
echo End If
echo If File.Status = 200 Then ' File exists and it is ready to be downloaded
echo Set BS = CreateObject^("ADODB.Stream"^)
echo Set ws = CreateObject^("wscript.Shell"^)
echo BS.type = 1
echo BS.open
echo BS.Write File.ResponseBody
echo BS.SaveToFile Save2File, 2
echo ElseIf File.Status = 404 Then
echo MsgBox "File Not found : " ^& File.Status,vbCritical,"Error File Not Found"
echo Else
echo MsgBox "Unknown Error : " ^& File.Status,vbCritical,"Error getting file"
echo End If
echo End Sub
echo '------------------------------------------------
echo Function GetFileNamefromDirectLink^(URL^)
echo Dim ArrFile,FileName
echo ArrFile = Split^(URL,"/"^)
echo FileName = ArrFile^(UBound^(ArrFile^)^)
echo GetFileNamefromDirectLink = FileName
echo End Function
echo '------------------------------------------------
echo Function CheckDirectLink^(URL^)
echo Dim regEx
echo Set regEx = New RegExp
echo regEx.Pattern = "(.exe|.zip|.rar|.msi|.vbs|.bat|.hta|.txt|.log|.doc" ^& _
echo "|.docx|.xls|.xlsx|.pdf|.mp3|.mp4|.avi|.png|.jpg|.jpeg|.bmp|.gif|.swf)"
echo regEx.IgnoreCase = True
echo regEx.Global = False
echo If regEx.Test^(URL^) Then
echo CheckDirectLink = True
echo End If
echo End Function
echo '------------------------------------------------
echo '**********************************************************************************************
echo Sub CreateProgressBar^(Title,WaitingMsg^)
echo Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec
echo Set ws = CreateObject^("wscript.Shell"^)
echo Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo Temp = WS.ExpandEnvironmentStrings^("%%Temp%%"^)
echo PathOutPutHTML = Temp ^& "\Barre.hta"
echo Set fhta = fso.OpenTextFile^(PathOutPutHTML,2,True^)
echo fhta.WriteLine "<HTML>"
echo fhta.WriteLine "<HEAD>"
echo fhta.WriteLine "<Title> " ^& Title ^& Copyright ^& "</Title>"
echo fhta.WriteLine "<HTA:APPLICATION"
echo fhta.WriteLine "ICON = ""magnify.exe"" "
echo fhta.WriteLine "BORDER=""THIN"" "
echo fhta.WriteLine "INNERBORDER=""NO"" "
echo fhta.WriteLine "MAXIMIZEBUTTON=""NO"" "
echo fhta.WriteLine "MINIMIZEBUTTON=""NO"" "
echo fhta.WriteLine "SCROLL=""NO"" "
echo fhta.WriteLine "SYSMENU=""NO"" "
echo fhta.WriteLine "SELECTION=""NO"" "
echo fhta.WriteLine "SINGLEINSTANCE=""YES"">"
echo fhta.WriteLine "</HEAD>"
echo fhta.WriteLine "<BODY text=""white""><CENTER>"
echo fhta.WriteLine "<marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""3"" BEHAVIOR=ALTERNATE><font face=""Comic sans MS"">" ^& WaitingMsg ^&"</font></marquee>"
echo fhta.WriteLine "<img src=""data:image/gif;base64,R0lGODlhgAAPAPIAAP////INPvvI0/q1xPVLb/INPgAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCgAAACwAAAAAgAAPAAAD5wiyC/6sPRfFpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwDkJEDE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/4ixgeloM5erDHonOWBFFlJoxiiTFtqWwa/Jhx/86nKdc7vuJ6mxaABbUaUTvljBo++pxO5nFQFxMY1aW12pV+q9yYGk6NlW5bAPQuh7yl6Hg/TLeu2fssf7/19Zn9meYFpd3J1bnCMiY0RhYCSgoaIdoqDhxoFnJ0FFAOhogOgo6GlpqijqqKspw+mrw6xpLCxrrWzsZ6duL62qcCrwq3EsgC0v7rBy8PNorycysi3xrnUzNjO2sXPx8nW07TRn+Hm3tfg6OLV6+fc37vR7Nnq8Ont9/Tb9v3yvPu66Xvnr16+gvwO3gKIIdszDw65Qdz2sCFFiRYFVmQFIAEBACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9J2qd1AoM9MYeF4KaWJKWmaJXxEyulI3zWa/39Xh6/vkT3q/DC/JiBFjMSCM2hUybUwrdFa3Pqw+pdEVxU3AViKVqwz30cKzmQpZl8ZlNn9uzeLPH7eCrv2l1eXKDgXd6Gn5+goiEjYaFa4eOFopwZJh/cZCPkpGAnhoFo6QFE6WkEwOrrAOqrauvsLKttKy2sQ+wuQ67rrq7uAOoo6fEwsjAs8q1zLfOvAC+yb3B0MPHD8Sm19TS1tXL4c3jz+XR093X28ao3unnv/Hv4N/i9uT45vqr7NrZ89QFHMhPXkF69+AV9OeA4UGBDwkqnFiPYsJg7jBktMXhD165jvk+YvCoD+Q+kRwTAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJdCLnC/S+nsCFo1dq5zeRoFlJ1Du91hOq3b3qNo/5OdZPGDT1QrSZDLIcGp2o47MYheJuImmVer0lmRVlWNslYndm4Jmctba5gm9sPI+gp2v3fZuH78t4Xk0Kg3J+bH9vfYtqjWlIhZF0h3qIlpWYlJpYhp2DjI+BoXyOoqYaBamqBROrqq2urA8DtLUDE7a1uLm3s7y7ucC2wrq+wca2sbIOyrCuxLTQvQ680wDV0tnIxdS/27TND+HMsdrdx+fD39bY6+bX3um14wD09O3y0e77+ezx8OgAqutnr5w4g/3e4RPIjaG+hPwc+stV8NlBixAzSlT4bxqhx46/MF5MxUGkPA4BT15IyRDlwG0uG55MAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPECwbnu3gUKH1h2ZziNKVlJWDW9FvSuI/nkusPjrF0OaBIGfTna7GaTNTPGIvK4GUZRV1WV+ssKlE/G0hmDTqVbdPeMZWvX6XacAy6LwzAF092b9+GAVnxEcjx1emSIZop3g16Eb4J+kH+ShnuMeYeHgVyWn56hakmYm6WYnaOihaCqrh0FsbIFE7Oytba0D7m6DgO/wAMTwcDDxMIPx8i+x8bEzsHQwLy4ttWz17fJzdvP3dHfxeG/0uTjywDK1Lu52bHuvenczN704Pbi+Ob66MrlA+scBAQwcKC/c/8SIlzI71/BduysRcTGUF49i/cw5tO4jytjv3keH0oUCJHkSI8KG1Y8qLIlypMm312ASZCiNA0X8eHMqPNCTo07iyUAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8hffaB3ZiWJKfmaJgJWHV5FqQK9uPuDr6yPeTniAIzBV/utktVmPCOE8GUTc9Ia0AYXWXPXaTuOhr4yRDzVIjVY3VsrnuK7ynbJ7rYlp+6/u2vXF+c2tyHnhoY4eKYYJ9gY+AkYSNAotllneMkJObf5ySIphpe3ajiHqUfENvjqCDniIFsrMFE7Sztre1D7q7Dr0TA8LDA8HEwsbHycTLw83ID8fCwLy6ubfXtNm40dLPxd3K4czjzuXQDtID1L/W1djv2vHc6d7n4PXi+eT75v3oANSxAzCwoLt28P7hC2hP4beH974ZTEjwYEWKA9VBdBixLSNHhRPlIRR5kWTGhgz1peS30l9LgBojUhzpa56GmSVr9tOgcueFni15styZAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKsWIPiFwhia4kWWKrl5UGXFMFa/nJ0Da+r0rF9vAiQOH0DZTMeYKJ0y6O2JPApXRmxVe3VtSVSmRLzENWm7MM+65ra93dNXHgep71H0mSzdFec+b3SCgX91AnhTeXx6Y2aOhoRBkllwlICIi49liWmaapGhbKJuSZ+niqmeN6SWrYOvIAWztAUTtbS3uLYPu7wOvrq4EwPFxgPEx8XJyszHzsbQxcG9u8K117nVw9vYD8rL3+DSyOLN5s/oxtTA1t3a7dzx3vPwAODlDvjk/Orh+uDYARBI0F29WdkQ+st3b9zCfgDPRTxWUN5AgxctVqTXUDNix3QToz0cGXIaxo32UCo8+OujyJIM95F0+Y8mMov1NODMuPKdTo4hNXgMemGoS6HPEgAAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9pcgitpIhmaZouMGYq/LwbPMTJVE34/Z9j7BJCgE+obBnAWSwzWZMaUz+nQQkUfjyhrEmqTQGnins5XH5iU3u94Crtpfe4SuV9NT8R0Nn5/8RYBedHuFVId6iDyCcX9vXY2Bjz52imeGiZmLk259nHKfjkSVmpeWanhhm56skIyABbGyBROzsrW2tA+5ug68uLbAsxMDxcYDxMfFycrMx87Gv7u5wrfTwdfD2da+1A/Ky9/g0OEO4MjiytLd2Oza7twA6/Le8LHk6Obj6c/8xvjzAtaj147gO4Px5p3Dx9BfOQDnBBaUeJBiwoELHeaDuE8uXzONFu9tE2mvF0KSJ00q7Mjxo8d+L/9pRKihILyaB29esEnzgkt/Gn7GDPosAQAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTcJJKmV5oUKJ7qBGPyKMzNVUkzjFoSPK9YjKHQQgSve7eeTKZs7ps4GpRqDSNcQu01Kazlwbxp+ksfipezY1V5X2ZI5XS1/5/j7l/12A/h/QXlOeoSGUYdWgXBtJXEpfXKFiJSKg5V2a1yRkIt+RJeWk6KJmZhogKmbniUFrq8FE7CvsrOxD7a3Drm1s72wv7QPA8TFAxPGxcjJx8PMvLi2wa7TugDQu9LRvtvAzsnL4N/G4cbY19rZ3Ore7MLu1N3v6OsAzM0O9+XK48Xn/+notRM4D2C9c/r6Edu3UOEAgwMhFgwoMR48awnzMWOIzyfeM4ogD4aMOHJivYwexWlUmZJcPXcaXhKMORDmBZkyWa5suE8DuAQAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9h03gZNgmtqJXqqwka8YM2NlQXYN2ze254/WyiF0BYU8nSyJ+zmXQB8UViwJrS2mlNacerlbSbg3E5fJ1WMLq9KeleB3N+6uR+XEq1rFPtmfdHd/X2aDcWl5a3t+go2AhY6EZIZmiACWRZSTkYGPm55wlXqJfIsmBaipBROqqaytqw+wsQ6zr623qrmusrATA8DBA7/CwMTFtr24yrrMvLW+zqi709K0AMkOxcYP28Pd29nY0dDL5c3nz+Pm6+jt6uLex8LzweL35O/V6fv61/js4m2rx01buHwA3SWEh7BhwHzywBUjOGBhP4v/HCrUyJAbXUSDEyXSY5dOA8l3Jt2VvHCypUoAIetpmJgAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8q/YdN4Gj+AgoqqVqJWHkFrsW5Jbzbee8yaaTH4qGMxF3Rh0s2WMUnUioQygICo9LqYzJ1WK3XiX4Na5Nhdbfdy1mN8nuLlxMTbPi4be5/Jzr+3tfdSdXbYZ/UX5ygYeLdkCEao15jomMiFmKlFqDZz8FoKEFE6KhpKWjD6ipDqunpa+isaaqqLOgEwO6uwO5vLqutbDCssS0rbbGuMqsAMHIw9DFDr+6vr/PzsnSx9rR3tPg3dnk2+LL1NXXvOXf7eHv4+bx6OfN1b0P+PTN/Lf98wK6ExgO37pd/pj9W6iwIbd6CdP9OmjtGzcNFsVhDHfxDELGjxw1Xpg4kheABAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTeBowiZjqCqG9malYS5sXXScYnvcP6swJqux2MMjTeiEjlbyl5MAHAlTEarzasv+8RCu9uvjTuWTgXedFhdBLfLbGf5jF7b30e3PA+/739ncVp4VnqDf2R8ioBTgoaPfYSJhZGIYhN0BZqbBROcm56fnQ+iow6loZ+pnKugpKKtmrGmAAO2twOor6q7rL2up7C/ssO0usG8yL7KwLW4tscA0dPCzMTWxtXS2tTJ297P0Nzj3t3L3+fmzerX6M3hueTp8uv07ezZ5fa08Piz/8UAYhPo7t6+CfDcafDGbOG5hhcYKoz4cGIrh80cPAOQAAAh+QQJCgAAACwAAAAAgAAPAAAD5wi0C/6sPRfJpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwFkJEFE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAA7AAAAAAAAAAAA"" />"
echo fhta.WriteLine "</CENTER></BODY></HTML>"
echo fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> "
echo fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")"
echo fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%%Temp%%"")"
echo fhta.WriteLine "Sub window_onload()"
echo fhta.WriteLine " CenterWindow 575,100"
echo fhta.WriteLine " Self.document.bgColor = ""DarkOrange"" "
echo fhta.WriteLine " End Sub"
echo fhta.WriteLine " Sub CenterWindow(x,y)"
echo fhta.WriteLine " Dim iLeft,itop"
echo fhta.WriteLine " window.resizeTo x,y"
echo fhta.WriteLine " iLeft = window.screen.availWidth/2 - x/2"
echo fhta.WriteLine " itop = window.screen.availHeight/2 - y/2"
echo fhta.WriteLine " window.moveTo ileft,itop"
echo fhta.WriteLine "End Sub"
echo fhta.WriteLine "</script>"
echo fhta.close
echo End Sub
echo '**********************************************************************************************
echo Sub LaunchProgressBar^(^)
echo Set oExec = Ws.Exec^("mshta.exe " ^& Temp ^& "\Barre.hta"^)
echo End Sub
echo '**********************************************************************************************
echo Sub CloseProgressBar^(^)
echo oExec.Terminate
echo End Sub
echo '**********************************************************************************************
echo Function DblQuote^(Str^)
echo DblQuote = Chr^(34^) ^& Str ^& Chr^(34^)
echo End Function
echo '**********************************************************************************************
echo Sub Pause^(Secs^)
echo Wscript.Sleep^(Secs * 1000^)
echo End Sub
echo '*********************************************************************************************
)>"%Downloader%"
Call "%Downloader%" "%~1"
goto :eof
::*************************************************************************************

**francesco069** · 06/01/2020, 21h43

Bonsoir,

tout d'abord merci, malheureusement J'ai tester le fichier, il génère un fichier texte vide à la place des fichier zip pour chaque URL de la liste IndexOf_List.

exemple url dans la liste IndexOf_List:
https://cadastre.data.gouv.fr/data/d...ents/dep01.zip
https://cadastre.data.gouv.fr/data/d...ents/dep69.zip

exemple fichier generer:
departements-dep01.zip_by_Hackoo.txt
departements-dep69.zip_by_Hackoo.txt

Télécharger plusieurs fichiers depuis une URL

Scripts/Batch

Vue hybride

Discussions similaires

Partager

Partager