Re bonjour le forum,
Ou plutôt bonswwwwoooaaaaarr,

Un petit script repêché sur le net pour downloader un fichier internet et le sauver automatiquement sur mon PC, jusque là, tout va bien.

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
'Set your settings
    strFileURL = "http://www.imfeelingmyself.com/downloads/doc_download/13-xp-2k-script56exe.html"
    strHDLocation = "G:\DOSS\56fr1.exe"
 
' Fetch the file
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
 
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
 
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
 
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
 
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
 
Set objXMLHTTP = Nothing
Ma question ...

Comment faire l'inverse ?

J'ai 4 fichiers à Uploader sur 4 sites intranet différents ...

Qqn pour m'aider ?

Merci