diff options
| author | Kurt Zenker <kz@openoffice.org> | 2004-05-19 12:24:25 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2004-05-19 12:24:25 +0000 |
| commit | e31e7b27aa21772ddc48ca506b4006b0de0f4b28 (patch) | |
| tree | 6f8c81001ab8ff40b9ec260b46c8ef2d0b91b506 | |
| parent | ba68dd36c3f8567a761a95ef3d9195dece1e87ef (diff) | |
INTEGRATION: CWS qwizards1 (1.11.58); FILE MERGED
2003/11/14 13:08:07 tv 1.11.58.1: changed resources to dbwizres
| -rw-r--r-- | wizards/source/tools/UCB.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index 69010dbdea7d..7b8a171615b2 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -268,8 +268,8 @@ Dim oUcb as Object CreateFolder = True NOSPACEONDRIVE: If Err <> 0 Then - If InitResources("", "com") Then - ErrMsg = GetResText(1000) + If InitResources("", "dbw") Then + ErrMsg = GetResText(500) ErrMsg = ReplaceString(ErrMsg, chr(13), "<BR>") ErrMsg = ReplaceString(ErrMsg, sNewFolder, "%1") Msgbox(ErrMsg, 48, GetProductName()) @@ -278,4 +278,4 @@ NOSPACEONDRIVE: Resume GOON End If GOON: -End Function</script:module>
\ No newline at end of file +End Function</script:module> |