Ortner erstellen SharePoint geht bei mir bei anderen nicht
08.10.2024 13:49:07
Shannara
Ich bin hier neu hier und bin auf ein Problem gestossen und stehe mit meinem Wissen an. Ich habe ein Code zum im SharePoint ein Ordner zu erstellen.
Jetzt ist es so, bei mir geht der Code aber bei meinen Kollegen geht er nicht. Die Excel Datei ist im Team hinterlegt. Beim Kollagen zeigts immer den Fehler an
strOrdnerExistiert = Dir(strOrdnerName, vbDirectory)
Kann mir jemand sagen weshalb das es bei Ihm nicht geht aber bei mir schon.
Vielen Dank für die Hilfe.
Sub Ordner_erstellen()
Dim strOrdnerName As String
Dim strOrdnerExistiert As String
Dim objNetzwerk As Object
Dim strPath As String, sNeuerOrdner As String
strOrdnerName = "//XXX.sharepoint.com/sites/CER-Intranet/CERAG/_Work/WK_NRL/Archiv_Auftragsblatt\_Archiv_Bilder\" & Sheets("DA").Range("B2") & "-" & Sheets("DA").Range("H5") & "-" & Sheets("DA").Range("H4")
strOrdnerExistiert = Dir(strOrdnerName, vbDirectory)
If strOrdnerExistiert = "" Then
MsgBox "Der ausgewählte Ordner existiert nicht"
Set objNetzwerk = CreateObject("WScript.Network")
strPath = "//XXX.sharepoint.com/sites/CER-Intranet/CERAG/_Work/WK_NRL/Archiv_Auftragsblatt\_Archiv_Bilder" 'anpassen
sNeuerOrdner = Sheets("DA").Range("B2") & "-" & Sheets("DA").Range("H5") & "-" & Sheets("DA").Range("H4") 'anpassen oder Me.TextBox1.Value
If Not CreateObject("Scripting.FileSystemObject").DriveExists("B") Then
On Error Resume Next
'sharepoint als Laufwerk "B:" verbinden
objNetzwerk.MapNetworkDrive "B:", strPath
If Err.Number > 0 Then
MsgBox Err.Description, vbCritical, "Fehler bei Verbindung!"
Else
'Ordner erstellen
If Dir("B:\" & sNeuerOrdner, vbDirectory) = "" Then MkDir "B:\" & sNeuerOrdner
'sharepoint trennen
Application.Run "trennen"
End If
End If
Set objNetzwerk = Nothing
Else
MsgBox "Der ausgewählte Ordner existiert"
End If
End SubAnzeige