VBA: Check If Both Files (Original and Copy) Are In Same Directory Through SaveAs Dialog Box

[kelly mort]

Sub SaveFileCode
ChDrive ThisWorkbook.Path 
ChDir ThisWorkbook.Path 

FileSaveAs = Application.GetSaveAsFilename(FileFilter:="Exel Files (*.xlsm),*.xlsm",Title:="Add Name")

If FileSaveAs = False Then 
        MsgBox "Operation terminated"
Else
       Application.EnableEvents=False 
       ThisWorkbook.SaveAs FileName:=FileSaveAs, FileFormat:=52, Password:="", writerespassword:="", ReadOnlyRecommended:=False 
       Application.EnableEvents=True
End Sub

When I click on the Save button, I want to verify if the workbook (original) is in the same folder as the copy (new workbook to be saved).

If that can be done, can someone please show me the way and how it's done?

Thanks in advance

 

[Marc L]

Hi,​

​

with some comparison like If Left(FileSaveAs, InStrRev(FileSaveAs, "\") - 1) = ThisWorkbook.Path Then …​

 

[kelly mort]

Okay @Marc L
I will run the test and give you feedback shortly.

I am not with my pc ATM

 

[kelly mort]

It worked perfectly. Thanks and have a great time.