tags:

views:

70

answers:

0

Hellp, I am trying to upload a file to sharepoint document library. though I am passing right credentials I am getting "The remote server returned an error: 401 unauthorized"

Public Function UploadDocument(ByVal localFile As String, ByVal remoteFile As String) As Boolean
        '// Read in the local file
        Dim status As Boolean = False
        Dim r As Byte()
        Dim Strm As System.IO.FileStream = New System.IO.FileStream(localFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
        Dim reader As System.IO.BinaryReader = New System.IO.BinaryReader(Strm)
        Dim filecontents As Byte() = reader.ReadBytes(CInt(Strm.Length))
        reader.Close()
        Strm.Close()
        Dim sSPURL As String = ConfigurationManager.AppSettings("SharePointServer")
        Dim sDocLib As String = ConfigurationManager.AppSettings("DocLibrary")
        Dim sUser As String = ConfigurationManager.AppSettings("User")
        Dim sPwd As String = ConfigurationManager.AppSettings("Pwd")
        Dim sDomain As String = ConfigurationManager.AppSettings("Domain")
        Dim sRemoteFileURL As String
        Dim NC As System.Net.NetworkCredential = New System.Net.NetworkCredential(sUser, sPwd, sDomain)
        sRemoteFileURL = sRemoteFileURL  & Trim(LTrim(RTrim(remoteFile)))
        sRemoteFileURL = Replace(sRemoteFileURL, " ", "%20")
        sRemoteFileURL = Replace(sRemoteFileURL, "\", "/")
        Dim m_WC As WebClient = New WebClient
        m_WC.Credentials = NC
        Try
            r = m_WC.UploadData(sRemoteFileURL, "PUT", filecontents)
            status = True
        Catch ex As Exception

        End Try
        Return status
    End Function