Aanmaken folder op Sharepoint in VBA

Status
Niet open voor verdere reacties.
L

linkav

Gebruiker
Lid geworden
13 jun 2007
Berichten
465
Dag collega's,

Bij het aanmaken van een nieuw contract wordt nu een folder aangemaakt op een netwerkdrive (MKDIR).

Kan ik via VBA ook een folder aanmaken in Sharepoint en zoja hebben jullie een stukje voorbeeldcode?

Alvast bedankt!
 
Hi,

een jaar of 8 geleden ooit eens een stukje geschreven om bestanden automatisch op Sharepoint te bewaren.
De bestanden werden volgens een bepaalde folderstructuur (land, klant en reporttype) bewaard.

Hierbij de functies die ik daarbij gebruikte;

Code: 
Function CreateFolderStructure(ReportType As String, Archive As String, customer As String)

    Set wsd = Sheets(shtData)
    
    'Country
    Archive = wsd.Range(ctEntity_Cnt)
    Call CreateDir(Archive)
    
    'Customer
    Archive = Archive & "/" & customer
    Call CreateDir(Archive)
    
    'Report Type
    Archive = Archive & "/" & ReportType
    Call CreateDir(Archive)
    
End Function

Function CreateDir(ByVal sDir)
    
    On Error GoTo Errorhandler

    Dim xmlhttp As MSXML2.xmlhttp
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP.3.0")
    strUrl = SharePointUrl & sDir

    xmlhttp.Open "MKCOL", strUrl, False
    xmlhttp.send
    
    Set xmlhttp = Nothing

End Function

Function SendToSharePoint(ByVal sFilename, sType, Archive)
    
    Dim xmlhttp As MSXML2.xmlhttp
    On Error GoTo Errorhandler
    
    sData = getFileBytes(sFilename, sType)
    sFilename = Mid(sFilename, InStrRev(sFilename, "\") + 1, Len(sFilename))
    
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP.3.0")
    strUrl = SharePointUrl & Archive & "/" & sFilename
    xmlhttp.Open "PUT", strUrl, False
    xmlhttp.send sData

    If xmlhttp.statusText = "Created" Then
        SendToSharePoint = True
    Else
        SendToSharePoint = False
    End If
    Set xmlhttp = Nothing
    Exit Function

Errorhandler:
    SendToSharePoint = False

End Function

Misschien kun je er wat mee.

mvg,

Aat
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan