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 | 6491b85992d8ac0d2ae7a0cbd157b50d9be77a7a (patch) | |
| tree | 642e5ece51bc29a1df19a833f670a9d1c42a43f1 /wizards/source | |
| parent | 0afd73c290163552b8142ba01c6f59797e6e0a68 (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')
| -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 51af349e3..4f4d0dfe6 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) |