diff options
Diffstat (limited to 'wizards/source/formwizard/tools.xba')
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba index 7d457fb4aa79..63af3bff9393 100644 --- a/wizards/source/formwizard/tools.xba +++ b/wizards/source/formwizard/tools.xba @@ -299,4 +299,30 @@ Function GetDBHeight(oDBModel as Object) End If GetDBHeight() = nDBHeight End Function + + +Function GetFormWizardPaths() as Boolean + FormPath = GetOfficeSubPath("Template","wizard/bitmap") + If FormPath <> "" Then + WebWizardPath = GetOfficeSubPath("Template","wizard/web") + If WebWizardPath <> "" Then + WizardPath = GetOfficeSubPath("Template","wizard/") + If Wizardpath <> "" Then + TexturePath = GetOfficeSubPath("Gallery", "www-back/") + If TexturePath <> "" Then + WorkPath = GetPathSettings("Work") + If WorkPath <> "" Then + GetFormWizardPaths = True + Exit Function + End If + End If + End If + End If + End If + If Not IsNull(oDocument) Then + oDocument.dispose() + End If + GetFormWizardPaths() = False +End Function + </script:module>
\ No newline at end of file |