diff options
Diffstat (limited to 'wizards')
| -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) |