Henk Benter
Gebruiker
- Lid geworden
- 13 mei 2010
- Berichten
- 154
Maakte ik voorheen automatisch een projectdirectory aan middels een knop op een formulier op een lokale schijf. Nu is de wens ontstaan om automatisch middels een knop vanuit dezelfde toepassing een directory te maken in sharepoint. Had gedacht door de c:/... te vervangen door het https:\\.... en dat het dan wel zou lukken. Helaas, ik krijg de onderstaande VBA code niet aan de gang. Wat gaat hier niet goed? Wie helpt mij op weg om ook deze code onder een knop werkend te krijgen. Deze code werkt overigens wel op de lokale schijf.
HTML:
Private Sub Knop70_Click()
Const aBron = "https://test.sharepoint.com/sites/intranet/communities/hoofdleidingen-henk-projecten/WebDocuments/Diverse%20Documenten/Standaarddocumenten/"
Const sBron = "https://test.sharepoint.com/sites/intranet/communities/hoofdleidingen-henk-projecten/WebDocuments"
Dim Pad As String
Dim nPad As String
If Len(dir(sBron & Me.Projectnummer & " - " & Me.Omschrijving & " " & Me.Plaats & "\", vbDirectory)) = 0 Then 'Test om te kijken of een directory bestaat
MsgBox ("De directorystructuur voor dit project bestaat nog niet, deze zal worden aangemaakt. Even geduld s.v.p.. Er verschijnt een melding zodra de nieuwe directory is aangemaakt."), vbOKOnly, "Henk Benter" 'Resultaat test is dat de directory niet bestaat.
Pad = sBron & Me.Projectnummer & " - " & Me.Omschrijving & " " & Me.Plaats & "\"
CreateFolders Pad & "Algemeen\Financieel-Afrekening\"
nPad = Pad & "Algemeen\Financieel-Afrekening\"
CreateFolders nPad
FileCopy aBron & "Financieel.xlsm", nPad & "Financieel.xlsm"
nPad = Pad & "Algemeen\Werkbegroting\"
CreateFolders nPad
FileCopy aBron & "Werkbegroting.xlsm", nPad & "Werkbegroting.xlsm"
nPad = Pad & "Algemeen\Projectplanning\"
CreateFolders nPad
FileCopy aBron & "Projectplanning.xlsm", nPad & "Projectplanning.xlsm"
CreateFolders Pad & "Algemeen\KAM Formulieren\"
CreateFolders Pad & "Algemeen\Klicmelding-Graafmelding\"
CreateFolders Pad & "Algemeen\Revisiegegevens\"
MsgBox ("De directorystructuur voor dit project is aangemaakt."), vbOKOnly, "Henk Benter"
Else
MsgBox ("Er bestaat al een directorystructuur voor dit project. Er zal geen nieuwe Directory worden aangemaakt."), vbOKOnly, "Henk Benter"
End If
End Sub