Programmazione - 27/10/2012 - Sharepoint WSDL copy.asmx VB.Net
Tempo di lettura: min.
Sharepoint WSDL copy.asmx VB.Net
Guadagna con
In questi giorni abbiamo dovuto sviluppare una procedura per la copia dei file su SharePoint con il web service copy.asmx.

Come prima cosa abbiamo scaricato il WSDL del web service per poter creare la classe in VB per la gestione delle chiamate che voi potete trovare seguendo il link

WSDL SharePoint copy.asmx
(Il file ha una estensione txt però basta cambiarla in vb per poterla aggiungere in Visual Studio)

oppure sharepoint-wsdl.

Il codice scritto per riuscire ad invocare il metodo CopyIntoItems per la copia è il seguente

Public Function CopyFile(ByVal sSource As String, ByVal sPathDestination As String, ByRef sError As String) As Boolean
Dim bRet As Boolean = False
Dim oCpyResult As New SharePointCopy.CopyResult()
Dim crArrProfile() As SharePointCopy.CopyResult = {oCpyResult}

Dim fiProfile As New SharePointCopy.FieldInformation
Dim fStream As IO.FileStream = Nothing

Try
If sSource = String.Empty Then Throw New Exception("Errore file sorgente")

Dim fSource As New IO.FileInfo(sSource)
fiProfile.DisplayName = fSource.Name
fiProfile.Type = SharePointCopy.FieldType.File
fiProfile.Value = fSource.Name
fiProfile.InternalName = fSource.Name

Dim fiArrProfile() As SharePointCopy.FieldInformation = {fiProfile}

fStream = New IO.FileStream(sSource, IO.FileMode.Open, IO.FileAccess.Read)
Dim bytearrContent(fStream.Length) As Byte
fStream.Read(bytearrContent, 0, Convert.ToInt32(fStream.Length))

If IsNothing(sPathDestination) Then sPathDestination = String.Empty
Dim sFileDestination As String = IO.Path.Combine(sPathDestination, fSource.Name)
Dim arrDestination() As String = {sFileDestination}

Dim Ws As New SharePointCopy.Copy
Ws.Credentials = New NetworkCredential(NomeUtente, Password, Domain)
Ws.Url = Url

Dim intResult As UInteger = Ws.CopyIntoItems(fSource.FullName, arrDestination, fiArrProfile, bytearrContent, crArrProfile)

bRet = True

Catch ex As Exception
sError = ex.Message

Finally
If Not IsNothing(oCpyResult) Then oCpyResult = Nothing
If Not IsNothing(fiProfile) Then fiProfile = Nothing

If Not IsNothing(fStream) Then fStream.Close()
fStream = Nothing

End Try

Return bRet
End Function

Per avere altre informazioni sul Web Service di Share Point copy.asmx potete visualizzare il link Copy Members
Salsomaggiore Terme (Programmazione) - 27/10/2012 - Sharepoint WSDL copy.asmx VB.Net - Written by Mokik

Link referral

Aiuta MrPaloma.com a crescere, utilizza uno dei seguenti link per iscriverti a qualche sito così che noi possiamo ricevere un omaggio.
Quanloop Presti €1 per 24 ore per guadagnare degli ottimi interessi utilizzando i cicli di investimento. quanloop.com.
Coinbase Fai di più con le criptovalute usando Coinbase Wallet. Conserva la tua criptovaluta nel tuo portafoglio coinbase.com.
Plutus Ricevi uno sconto del 100% in PLU su tutti i vantaggi basati su abbonamento. plutus.it.
YouHodler Ricevi 5€ iscrivendoti con il seguente link. youhodler.com.

Ricordiamo che in qualità di Affiliato Amazon riceviamo un guadagno dagli acquisti idonei.
Fai una donazione a MrPaloma.com con coindrop.to/mrpaloma

Articoli precedenti

© MrPaloma 2023 - Viaggi - Foto - Forum - Prezzi -