diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2006-04-06 12:04:35 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2006-04-06 12:04:35 +0000 |
| commit | 25a24361c0dec8776f6e568a8ac9423ddfe4e2cf (patch) | |
| tree | 2f8ef8164c0e1b6617f19d0620d9d044ec0b7065 /wizards/source/importwizard/FilesModul.xba | |
| parent | fa469c024e691fa06e3a24793f790d2e7be3bd31 (diff) | |
INTEGRATION: CWS extras8pp3 (1.44.100); FILE MERGED
2006/03/27 15:29:18 ih 1.44.100.1: #i60444# log-file in root folder problem corrected
Diffstat (limited to 'wizards/source/importwizard/FilesModul.xba')
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index 51af349e3175..4f4d0dfe6c7b 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -363,7 +363,7 @@ Dim sPrevMimeTypeorExtension as String End If If bDoSave Then If Not oUcb.Exists(TargetDir) Then - bDoSave = CreateFolder(TargetDir) + bDoSave = CreateFolder(TargetDir) End If If bDoSave Then oDocument = StarDesktop.LoadComponentFromURL(sSourceUrl, "_default", 0, OpenProperties()) @@ -612,6 +612,7 @@ Dim bLogIsThere as Boolean OpenProperties(0).Name = "Hidden" OpenProperties(0).Value = True oLogDocument = StarDesktop.LoadComponentFromURL("private:factory/swriter", "_default", 4, OpenProperties()) + SOWorkPath = RTrimStr(SOWorkPath,"/") sLogUrl = SOWorkPath & "/Logfile.odt" Do bLogIsThere = oUcb.Exists(sLogUrl) |