Skip to content
Permalink
Browse files

[Config] Add SetFilePath() method.

Sets the value for the GetFilePath() function.
  • Loading branch information...
Davnit committed Dec 2, 2017
1 parent a7ba083 commit e4f17e27931674c70e42692bb0d8f4b25d1b298f
Showing with 6 additions and 1 deletion.
  1. +6 −1 trunk/clsConfig.cls
@@ -1643,11 +1643,16 @@ Public Property Let DebugConfig(ByVal sValue As Boolean)
m_DebugConfig = sValue
End Property

' Returns the path to the specified file if it is overriden by this configuration.
' Returns the path to the directory the file should be found in it is overriden by this configuration.
Public Function GetFilePath(ByVal sFileName As String) As String
GetFilePath = ReadSetting(SECTION_FILEPATH, sFileName)
End Function

' Sets the directory to search for the file in.
Public Sub SetFilePath(ByVal sFileName As String, ByVal sDirectory As String)
WriteSetting SECTION_FILEPATH, sFileName, sDirectory
End Sub

Public Function GetVersionByte(ByVal sProductCode As String) As Long
Dim iIndex As Integer
iIndex = GetProductIndex(GetProductInfo(sProductCode).ShortCode)

0 comments on commit e4f17e2

Please sign in to comment.
You can’t perform that action at this time.