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
joyfullservice · Jan 27, 2021 · b9e84c5 · b9e84c5
1 parent f932b43
commit b9e84c5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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.