Create backup of folder with date

[cwojtak]

Hey, looking to take a copy of a folder before I update it and save a copy of it under a different name. Used Ron De Bruins guide as a start but I'm getting a Runtime error 70, permission denied error on the second to last line, see my code below.



Sub BackupOwnershipFiles()'This example move the folder from FromPath to ToPath.

If MsgBox("Are you sure you'd like to create a back up of the ownership files?", vbYesNo) = vbNo Then
Exit Sub
Else
End If


Dim FSO As Object
Dim FromPath As String
Dim ToPath As String

yyyy = Year(Now)
mm = Format(Month(Now), "00")
dd = Format(Day(Now), "00")


FromPath = "S:\Regional Planners Product Ownership\Manager_Ownership_Files_" '<< Change
ToPath = "C:\Users\name\Documents\Manager Ownership Backups\" & mm & "_" & dd & "_" & yyyy '<< Change
'Note: It is not possible to use a folder that exist in ToPath


If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If


If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If


Set FSO = CreateObject("scripting.filesystemobject")


If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If


If FSO.FolderExists(ToPath) = True Then
MsgBox ToPath & " exist, not possible to move to a existing folder"
Exit Sub
End If


FSO.MoveFolder Source:=FromPath, Destination:=ToPath 'THIS IS WHERE THE ERROR IS
MsgBox "The folder is moved from " & FromPath & " to " & ToPath


End Sub

[Artik]

Try copying the source folder to the destination folder, and then delete the source folder.

Artik

[SamT]

Maybe

FSO.MoveFolder FromPath, ToPath

[cwojtak]

Thank you for the input! I tracked it down to a permissions issue within SharePoint.

My goal was just to copy the folder as a backup so I changed


FSO.MoveFolder

To

FSO.CopyFolder

And it works great! Thank you for the inputs, sorry for the dumb question.