VBA - Save a copy of a file in a different folder then parent folder

[myay_87]

Hi,

Can someone help me to modify below cod in order to save a copy of the file in a different folder?

I tried to change "thisPath" to ' thisPath = ThisWorkbook("C:\Users\mihai4.anghel\Downloads\Proiect PT") but nothing happened.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False

    thisPath = ThisWorkbook.Path
    myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
    ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
    backupdirectory = myName & " backups"

    Set fso = CreateObject("Scripting.FileSystemObject")

    If Not fso.FolderExists(ThisWorkbook.Path & "/" & backupdirectory) Then
        fso.CreateFolder (ThisWorkbook.Path & "/" & backupdirectory)
    End If

    T = Format(Now, "yyyymmdd hh mm ss")
    ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & myName & " " & T & "." & ext

    Application.EnableEvents = True
    
End Sub

 

[Jimmypop]

Hi there...

Have you tried...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    thisPath = "C:\Users\mihai4.anghel\Downloads\Proiect PT\"
    myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
    ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
    backupdirectory = myName & " backups"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(ThisWorkbook.Path & "/" & backupdirectory) Then
        fso.CreateFolder (ThisWorkbook.Path & "/" & backupdirectory)
    End If
    T = Format(Now, "yyyymmdd hh mm ss")
    ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & myName & " " & T & "." & ext
    Application.EnableEvents = True
End Sub

 

[myay_87]

Yes, it is not working. The folder is empty.

 

[myay_87]

I'm received error at this line

ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & myName & " " & T & "." & ext

View attachment 87887

I change it to:

ThisWorkbook.SaveCopyAs thisPath & "\" & myName & " " & T & "." & ext

and now it's working.