Put HttpFile

Question

Bonjour 

J'ai cr&#233;er un script pour envoyer mes fichiers automatiquement dans SharePoint.

Il fonctionne tr&#233;s bien quand j'envoie un fichier XML, par contre si j'envoie un document Excel ou Word , j'ai ce message : &#208;&#207;&#224;&#161;&#177;&#225; dans mon document

Auriez vous une id&#233;e ? merci d'avance.

Dim ArgObj, sfileName, sUrl 

Set ArgObj = WScript.Arguments 

'///Parametre en ligne de commande MSDOS
sfileName = ArgObj(0) 
sUrl = ArgObj(1) 
'///ouverture du fichierConst 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,TristateUseDefault)
sData = f.ReadAll
f.Close

'///Si fichier XML on enl&#233;ve les caract&#233;res barbarique
if fs.GetExtensionName(sfileName)=
"xml" 
then
sData = Right(sData, 
len(sData) - 3)

end 
if
'///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

wesleymichel · Answer

Comment faire pour envoyer un fichier binaire avec une m&#233;thode semblabe &#224; celle ci

wesleymichel · Answer

J'ai trouv&#233; : 

pour ce que ca int&#233;resse : 


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:\3.doc")


sUrl = inputbox(
"Entrer l'url de destination", 
"URL",
"http://myWebSite/sites/sousSite/mydocLib/")


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&#233;ve les caract&#233;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

Put HttpFile

2 réponses

Discussions similaires