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.
Ma question ...
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
Comment faire l'inverse ?
J'ai 4 fichiers à Uploader sur 4 sites intranet différents ...
Qqn pour m'aider ?
Merci
Partager