From b9e84c5cdf780db85dd14aef8b49ba43db18bc11 Mon Sep 17 00:00:00 2001
From: joyfullservice <awaller@iblp.org>
Date: Wed, 27 Jan 2021 09:03:13 -0600
Subject: [PATCH] Support placeholders in export path

Add support for a placeholder in the export path. `%dbName%` will resolve to the file name of the current project, and can be used to build a custom relative path. Closes #139
---
 Version Control.accda.src/modules/clsOptions.bas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Version Control.accda.src/modules/clsOptions.bas b/Version Control.accda.src/modules/clsOptions.bas
index d5840d66..d84b02c7 100644
--- a/Version Control.accda.src/modules/clsOptions.bas	
+++ b/Version Control.accda.src/modules/clsOptions.bas	
@@ -315,6 +315,10 @@ Public Function GetExportFolder() As String
             ' Other absolute path (i.e. c:\myfiles\)
             strFullPath = Me.ExportFolder
         End If
+        ' Placeholder replacements
+        If InStr(1, strFullPath, "%dbName%", vbTextCompare) > 0 Then
+            strFullPath = Replace(strFullPath, "%dbName%", CurrentProject.Name, , , vbTextCompare)
+        End If
     End If
 
     ' Check to make sure we have built a valid path.