diff options
| author | Pascal Junck <pjunck@openoffice.org> | 2004-10-27 12:45:24 +0000 |
|---|---|---|
| committer | Pascal Junck <pjunck@openoffice.org> | 2004-10-27 12:45:24 +0000 |
| commit | c4bd5b2887378a6d5b443cbf6d1c5404cdd365b1 (patch) | |
| tree | 34f0cb584537b609e3b03ce50be5d9c464d3b6b2 /wizards/source | |
| parent | INTEGRATION: CWS dbwizard1 (1.38.42); FILE MERGED (diff) | |
| download | core-c4bd5b2887378a6d5b443cbf6d1c5404cdd365b1.tar.gz core-c4bd5b2887378a6d5b443cbf6d1c5404cdd365b1.zip | |
INTEGRATION: CWS dbwizard1 (1.12.132); FILE MERGED
2004/09/15 19:41:47 bc 1.12.132.1: ##several changes for all database wizards
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/template/Samples.xba | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index ba74199d72ba..28a7837d1457 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -129,7 +129,13 @@ Sub SaveCurrentStyles(oDocument as Object) 'This sub stores the current document in the user work directory On Error Goto ErrorOcurred aTempURL = GetPathSettings("Work", False) - aTempURL = aTempURL & "/" & aTempFileName + Dim aRightMost as String + aRightMost = Right(aTempURL, 1) + if aRightMost = "/" Then + aTempURL = aTempURL & aTempFileName + Else + aTempURL = aTempURL & "/" & aTempFileName + End If While FileExists(aTempURL) aTempURL=Left(aTempURL,(Len(aTempURL)-4)) & "_1.stc" |