Get local save folder path |
Purpose: get local save folder path
This lets you retrieve the path to the local folder where XLS Padlock stores your application’s settings and secure save files.
Insert the following code:
Public Function GetStoragePath()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
GetStoragePath = XLSPadlock.PLEvalVar("SPath")
Exit Function
Err:
GetStoragePath = ""
End Function
The previous code can be tested with:
Sub Test_GetStoragePath()
MyPath = GetStoragePath
MsgBox (MyPath)
End Sub