Discussion :

[atoutal]

bonjour mon téléchargement ne va pas dans le répertoire surligné en gras
pouvez vous me dire où ça coince. j’apprends doucement mais surement
Merci de votre aide
sur une copie du bat de hackoofr

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
@echo off & setlocal enabledelayedexpansion
Title Téléchargement d'une liste d'URL dans un document .txt by Hackoo
mode con cols=100 lines=10 & Color A
echo %time%
echo.
echo Telechargement en cour
echo.
Set Fichier=url.txt
Set Source=%~dp0
set rep="Livre de cuisine"
Set DownloadFolder=%rep%
Set Destination=%Source%%DownloadFolder%
if not exist %DownloadFolder% MD %DownloadFolder%
for /F "usebackq delims=" %%i in (`type %Fichier%`) do (call :download "%%i" "%Destination%\%%~nxi")
exit /b !ErrorLevel!

[sachadee]

Salut,

Elle est où la partie : Download du code de notre ami Hackoo () ????

[atoutal]

@sachadee
bonjour
voila l'ensemble du code j' ai rajoute la ligne 10 et modifie la 11
il y a bien le répertoire de créer mais rien dedans
Merci pour votre aide

code bat :

Code :

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
@echo off & setlocal enabledelayedexpansion
Title Téléchargement d'une liste d'URL dans un document .txt by Hackoo
mode con cols=100 lines=10 & Color A
echo %time%
echo.
echo Telechargement en cour
echo.
Set Fichier=url.txt
Set Source=%~dp0
set rep="Livre de cuisine"
Set DownloadFolder=%rep%
Set Destination=%Source%%DownloadFolder%
if not exist %DownloadFolder% MD %DownloadFolder%
for /F "usebackq delims=" %%i in (`type %Fichier%`) do (call :download "%%i" "%Destination%\%%~nxi")
exit /b !ErrorLevel!

: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 MsgBox "Download-Status: " ^& v1.Status ^& vbTab ^& v1.statusText ^& vbCrlf ^& "%~2",Vbinformation,"OK Telecharge avec sucees !"
echo v2.Close
echo End If
echo Set v1 = Nothing) >"%~dpn0.vbs"
cscript.exe //nologo "%~dpn0.vbs"
del "%~dpn0.vbs" >nul

[InitSreen]

Essaie avec des guillemets ca devrait marcher

Code :

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

1
2
3
4
5
6
7
8
9
Set "Fichier=url.txt"
Set "Source=%~dp0"
set "rep=Livre de cuisine"
Set "DownloadFolder=%rep%"
Set "Destination=%Source%%DownloadFolder%"
if not exist "%DownloadFolder%" MD "%DownloadFolder%"
for /F "usebackq delims=" %%i in (`type "%Fichier%"`) do (call :download "%%i" "%Destination%\%%~nxi")
exit /b !ErrorLevel!

et en utilisant la commande suivante avec les guillemets placer ou ils sont:

Code :

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

1
2
Set rep="Livre de cuisine"

cela produit la chaine suivante qui n'est pas un chemin d'accès valide

Code :

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

1
2
<Lecteur>\<Chemin>\"Livre de cuisine"

[atoutal]

bonsoir et Merci cela fonctionne
je vais essayé de comprendre l' histoire des guillemets