Download (OK) - Upload (?) de fichier par script VBS
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:
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 :oops:
