diff options
Diffstat (limited to 'wizards/source/scriptforge/SF_FileSystem.xba')
-rw-r--r-- | wizards/source/scriptforge/SF_FileSystem.xba | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/wizards/source/scriptforge/SF_FileSystem.xba b/wizards/source/scriptforge/SF_FileSystem.xba index 7fd5e8fff562..f626eba6fd92 100644 --- a/wizards/source/scriptforge/SF_FileSystem.xba +++ b/wizards/source/scriptforge/SF_FileSystem.xba @@ -1091,14 +1091,14 @@ Check: Try: Select Case UCase(PropertyName) - Case "ConfigFolder" : GetProperty = ConfigFolder - Case "ExtensionsFolder" : GetProperty = ExtensionsFolder - Case "FileNaming" : GetProperty = FileNaming - Case "HomeFolder" : GetProperty = HomeFolder - Case "InstallFolder" : GetProperty = InstallFolder - Case "TemplatesFolder" : GetProperty = TemplatesFolder - Case "TemporaryFolder" : GetProperty = TemporaryFolder - Case "UserTemplatesFolder" : GetProperty = UserTemplatesFolder + Case UCase("ConfigFolder") : GetProperty = ConfigFolder + Case UCase("ExtensionsFolder") : GetProperty = ExtensionsFolder + Case UCase("FileNaming") : GetProperty = FileNaming + Case UCase("HomeFolder") : GetProperty = HomeFolder + Case UCase("InstallFolder") : GetProperty = InstallFolder + Case UCase("TemplatesFolder") : GetProperty = TemplatesFolder + Case UCase("TemporaryFolder") : GetProperty = TemporaryFolder + Case UCase("UserTemplatesFolder") : GetProperty = UserTemplatesFolder Case Else End Select @@ -1611,6 +1611,7 @@ Check: Try: Select Case UCase(PropertyName) + Case UCase("FileNaming") : FileNaming = Value Case Else End Select |