I tried to upload a document in a workspace document folder using
CreateDocument function from the SPS SDK sample "adapted" to VBscript.

When I launch the function I get the following error (on the line which
contains "oStream.LoadFromFile sFilestream"):

Error Type:
ADODB.Stream (0x800A0BBA)
File could not be opened.

Does anybody know which is the problem?

The code is the following:

'----------------------------------------------------

'/// <summary>Import document on server</summary>

'/// <param name="sFileStream">Path of the file to be uploaded</param>

'/// <param name="sHref">New document's URL</param>

'/// <param name="sCC">Document's content class </param>

'/// <returns>The created document object</returns>

Function CreateDocument(sFilestream, sHref, sCC)

Dim oDoc

Dim oStream

Dim nIndex

Dim sPropName

Set oDoc = CreateObject("CDO.KnowledgeDocument")

Set oStream = oDoc.OpenStream

oStream.Type = 1

oStream.SetEOS

oStream.LoadFromFile sFilestream

oStream.Flush



If sCC <> "" Then

oDoc.ContentClass = sCC

End If

oDoc.DataSource.SaveTo sHref, , , adCreateOverwrite

Set CreateDocument = oDoc

End Function

'-----------------------------------------------------