Discussion :

[nopseudonym]

Bonjour à tous,

J'ai trouvé le script de hackoofr très intéressant : [Batch /Vbscript] Téléchargeur de fichier
J'aimerai le modifier pour qu'il télécharge plusieurs fichiers mais je n'ai pas réussi.

Je souhaiterai qu'une boite de dialogue s'ouvre avec un champ ou je positionnerai mon URL dans laquelle se trouve mes fichiers, exemple : http://www.test/documents/.
Puis dans une deuxième boite de dialogue je saisirai ma liste de fichiers que je souhaite télécharger sans limite de quantité (fichier1, fichier2, fichier3, fichier4...)

Pourriez-vous m'aider ?


Merci d'avance.

[hackoofr]

Pourquoi ne pas stoker les URL(s) des fichiers à télécharger dans un fichier texte comme dans cet exemple :
URL.txt

http://frk.gamib.net/x/tomJER/tomJER.swf
http://frk.gamib.net/x/madarrow/madarrow.swf
http://frk.gamib.net/x/papaspizzeria/papaspizzeria.swf
http://frk.gamib.net/x/shatterbot/shatterbot.swf
http://frk.gamib.net/x/orcsattack/orcsattack.swf
http://frk.gamib.net/x/rockyrider/rockyrider.swf
http://frk.gamib.net/x/rodriguezreve...uezrevenge.swf
http://frk.gamib.net/x/toxic/toxic.swf
http://frk.gamib.net/x/cobYHF/cobYHF.swf

Code BAT :

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
@echo off
Title Telechargement d^'une liste d^'URL dans un document .txt by Hackoo
mode con cols=80 lines=10 & Color A
Set Fichier=URL.txt
Set Source=%~dp0
Set DownloadFolder=MyDownloadFolder
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
 
: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
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 sucees !"
echo End If
echo v2.Close
echo Set v1 = Nothing) >"%~dpn0.vbs"
cscript.exe //nologo "%~dpn0.vbs"
del "%~dpn0.vbs" >nul

[nopseudonym]

Oui c'est parfait !!!

Si je souhaite que pour une liste de fichier un dossier soit créé :
URL.txt

http://frk.gamib.net/x/tomJER/tomJER.swf ==============> Dossier 1
http://frk.gamib.net/x/madarrow/madarrow.swf ===========> Dossier 1
http://frk.gamib.net/x/papaspizzeria/papaspizzeria.swf =======> Dossier 2
http://frk.gamib.net/x/shatterbot/shatterbot.swf ===========> Dossier 2
http://frk.gamib.net/x/orcsattack/orcsattack.swf ===========> Dossier 3
http://frk.gamib.net/x/rockyrider/rockyrider.swf ===========> Dossier 3
http://frk.gamib.net/x/rodriguezreve...uezrevenge.swf =======> Dossier 3
http://frk.gamib.net/x/toxic/toxic.swf ==================> Dossier 4
http://frk.gamib.net/x/cobYHF/cobYHF.swf ===============> Dossier 4

J'ai modifier ton script, est-ce que c'est bon pour toi ?
Code BAT :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
@echo off
Title Telechargement d^'une liste d^'URL dans un document .txt by Hackoo
mode con cols=80 lines=10 & Color A
Set Fichier=URL.txt
Set Source=%~dp0
Set DownloadFolder=MyDownloadFolder
Set Destination=%Source%%DownloadFolder%
if not exist %DownloadFolder% MD %DownloadFolder%
for /F tokens=2 "delims= " %%i in (%Fichier%) do  MD %%b (echo Downloading "%%i" & call:download "%%i" "%Destination%\%%~ni%%~xi")
exit /b

[klef63]

Bonjour,

J'ai besoin d'utiliser ce script qui fonctionne très bien en tâche planifiée mais je n'arrive pas à le faire fonctionner.
Apparemment c'est la fonction FSO.DeleteFile qui pose problème pour l'avoir testée dans un script simplifié.
J'ai essayé le "true" à la fin pour forcer l’écrasement des fichiers en lecture seule mais ça ne fait rien >> https://msdn.microsoft.com/fr-fr/vba...etefile-method
J'ai tenté aussi la fonction del classique et même soucis, ça marche mais pas en tâche planifiée...

Avez vous une idée de comment le faire fonctionner en tâche planifiée ?

Merci.

[hackoofr]

Bonjour,

J'ai besoin d'utiliser ce script qui fonctionne très bien en tâche planifiée mais je n'arrive pas à le faire fonctionner.
Apparemment c'est la fonction FSO.DeleteFile qui pose problème pour l'avoir testée dans un script simplifié.
J'ai essayé le "true" à la fin pour forcer l’écrasement des fichiers en lecture seule mais ça ne fait rien >> https://msdn.microsoft.com/fr-fr/vba...etefile-method
J'ai tenté aussi la fonction del classique et même soucis, ça marche mais pas en tâche planifiée...

Avez vous une idée de comment le faire fonctionner en tâche planifiée ?

Merci.

La tâche planifié que tu veux la créer avec quelle fréquence d'exécution càd chaque semaine ou chaque mois ou bien chaque jour ou bien chaque heure etc ...

[klef63]

La tâche planifié que tu veux la créer avec quelle fréquence d'exécution càd chaque semaine ou chaque mois ou bien chaque jour ou bien chaque heure etc ...

Ce n'est pas la fréquence ni la planification du script en lui même qui me pose problème mais bien la suppression ou l'écrasement des fichiers à télécharger.
Dès que je supprime du script la fonction fso.DeleteFile ça marche très bien en planification.

J'ai vu que c'est cette erreur qui s'affiche :
ADODB.stream : Impossible d'écrire dans le fichier