Create backup of folder with date
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.
Code:
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
