Upload to Sharepoint programmatically

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Upload to Sharepoint programmatically

Logged in as: Guest

arrSession:exec spGetSession 2,2,51051

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Upload to Sharepoint programmatically
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Upload to Sharepoint programmatically - 8/22/2007 6:06:09 AM

Sysdupe123

Posts: 6
Score: 0
Joined: 8/22/2007
Status: offline

I'm using Access VBA to automate some processes and I'm trying to upload files to Sharepoint. I found some code but I'm running into a problem. I'm getting an error about the certificate being invalid or incorrect. When manually accessing the Sharepoint folder, I get a Security Alert. Is there a way I can bypass the certificate?

Thanks

Code below......

' Written by Jeff Jones 3-30-2004. Pure freeware, please redistribute.
'=================================
'Use this function call to upload a single file
WebUploadFile "C:\file.txt", "http://server/folder/file.txt", "domain\user", "password"
'Use this function call and constant to upload a directory and all it's subdirectories
Const basedir = "c:\temp"
WebUploadDir "", "http://server/folder/", "domain\user", "password"

'====================== WebDAV upload single file
Function WebUploadFile (file, url, user, pass)
Dim objXMLHTTP
Dim objADOStream
Dim arrbuffer
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1
objADOStream.LoadFromFile file
arrbuffer = objADOStream.Read()
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.open "PUT", url, False, user, pass
objXMLHTTP.send arrbuffer
End Function

'====================== WebDAV upload directroy
Function WebUploadDir (dir, baseUrl, usr, pwd)
Set fso = CreateObject("Scripting.FileSystemObject")
If dir = "" Then dir = basedir
Set srcFolder = fso.GetFolder(dir)

Dim fl
Set files = srcFolder.files
For Each fl in files
   Dim relpath
   relpath = Right(fl.path,Len(fl.path)-Len(basedir)-1)
   relpath = Replace(relpath, "\", "/")
   WebUploadFile fl.path, baseUrl & relpath, usr, pwd
Next

Dim sf
Set subfold = srcFolder.SubFolders
For Each sf in subfold
    Set f = fso.GetFolder(sf)
    relpath = Right(f,Len(f)-Len(basedir)-1)
    relpath = Replace(relpath, "\", "/")
    Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    objXMLHTTP.open "MKCOL", baseUrl & relpath, False, usr, pwd
    objXMLHTTP.send
    WebUploadDir f , baseUrl, usr, pwd
Next
End Function

Post #: 1

RE: Upload to Sharepoint programmatically - 8/22/2007 6:58:57 AM

Parabellum

Posts: 222
Score: 0
Joined: 11/12/2006
From: UK
Status: offline

May need to upgrade to lates version of MSXML i know there were certifcate issues with v3 not sure about others..

if that doesnt work you can use the setOption Method with SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS

http://msdn2.microsoft.com/en-us/library/ms763811.aspx

(in reply to Sysdupe123)