diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-10-23 12:09:21 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-23 12:09:21 +0000 |
| commit | d2d93b2351dbe8db77657e672bcd90f05fbc7088 (patch) | |
| tree | aa8b1b1be8a83fb61dd6c26b60e905c7326e7b14 | |
| parent | f2938636d4f89bb5493aebfcb49f61b085d113ec (diff) | |
#95411# CreateFolder Routine improved
| -rw-r--r-- | wizards/source/tools/UCB.xba | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index 369abb9d8d5b..b6018339e799 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -264,10 +264,12 @@ NOSPACEONDRIVE: If Err <> 0 Then If InitResources("", "com") Then ErrMsg = GetResText(1000) + ErrMsg = ReplaceString(ErrMsg, chr(13), "<BR>") + ErrMsg = ReplaceString(ErrMsg, sNewFolder, "%1") Msgbox(ErrMsg, 48, GetProductName()) End If CreateFolder = False Resume GOON End If GOON: -End Function</script:module> +End Function</script:module>
\ No newline at end of file |