Thread: Save if Directory Exists

Hi all,

I wonder if its possible to have a code that saves a copy of the current workbook on exit if the following directory exists

D:\Backup\

If not it closes normally.


Thanks in advance

Try this:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If FileFolderExists("D:\Backup\") Then
    ThisWorkbook.SaveCopyAs "D:\Backup\" & ThisWorkbook.Name
End If

End Sub

Public Function FileFolderExists(strFullPath As String) As Boolean
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Check if a file or folder exists

    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
    
EarlyExit:
    On Error GoTo 0

End Function

The code needs to go on the ThisWorkbook code page of your workbook's vba project.

Dom