VBA prüfen ob Ordner auf OneDrive Exisitiert
18.01.2024 12:09:38
Thomas
ich möchte mittels VBA Prüfen ob ein Verzeichnis Existiert und wenn nicht soll es angelegt werden, das ganze liegt auf einem OneDrive for Business.
Allerdings bekomme ich es leider nicht hin mit folgendem Code
Sub OrdnerFolgeJahrAnlegen()
Dim fsObject As Object
Dim strBerichteOrdner As String
Dim strSuchenderOrdner As String
strBerichteOrdner = ThisWorkbook.Path & "/Berichte/"
strSuchenderOrdner = "2024"
Set fsObject = CreateObject("Scripting.FileSystemObject")
If Not fsObject.FolderExists(strBerichteOrdner & strSuchenderOrdner) Then
ChDir strBerichteOrdner
MkDir strSuchenderOrdner
Else
MsgBox "Ordner besteht schon"
End If
End SubDann kommt immer bei
ChDir strBerichteOrdnerWenn ich mir den Wert von strBerichteOrdner im Direktfenster ausgeben lasse bekomme ich das:
https://my.sharepoint.com/personal/thomas/Documents/Apps/Test/BerichteMkDir strSuchenderOrdnerWas mache ich da falsch?
Danke