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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97
| Dim ArgObj, sfileName, sUrl
Set ArgObj = WScript.Arguments
'///Parametre en ligne de commande MSDOS
'sfileName = ArgObj(0)
'sUrl = ArgObj(1)
'///Parametre avec un prompt
sfileName = inputbox("Le chemin du fichier.", "FILENAME","C:\vbscript\copy\")
sUrl = inputbox("Entrer l'url de destination", "URL","http://prj-hozsql/")
sData = getFileBytes(sfileName, 1)
'///ouverture du fichier
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
'///on stock le contenu du fichier
Set f = fs.OpenTextFile(sfileName,ForReading,false,TristateMixed)
'sData = f.ReadAll
f.Close
'///Si fichier XML on enléve les caractéres barbarique
if fs.GetExtensionName(sfileName)="xml" then
sData = Right(sData, len(sData) - 3)
end if
'msgbox sData
'///nom du document
sfileName= mid(sfileName, InstrRev(sFileName,"\")+1,len(sfileName))
dim xmlhttp
set xmlhttp=createobject("MSXML2.XMLHTTP.3.0")
'///url de destination avec le nom du fichier
strURL = sUrl & sFileName
xmlhttp.Open "PUT", strURL, false
'///on envoie le contenu du fichier
xmlhttp.Send sData
set xmlhttp=Nothing
'msgbox sData
function getFileBytes(localFileName, sFileType)
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
if sFileType="1" then
objStream.Type = 1 ' adTypeBinary
else
objStream.Type = 2 ' adTypeText
objStream.Charset ="ascii"
end if
' objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile localFileName
getFileBytes=objStream.Read
objStream.Close
Set objStream = Nothing
end function |
Partager