diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-30 15:54:17 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-30 15:54:17 +0000 |
| commit | b3097e5ad8d4126611eb1f789e2e9c24d7a15bca (patch) | |
| tree | 307ecaae67a1d9834edaf4e125ca0ef7ea8ff40d /wizards/source/importwizard/FilesModul.xba | |
| parent | 53796978f568a81b12180f94e692ca459672ea98 (diff) | |
#95469# CheckTextboxPath routine now modulized
Diffstat (limited to 'wizards/source/importwizard/FilesModul.xba')
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index f0728c69aa3a..06b01417899d 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -166,7 +166,7 @@ Dim sOldExtension as String TargetFile = TargetFile & sExtension TargetDir = RTrimStr(TargetFile, sFileName & "." & sExtension) If Not oUcb.Exists(TargetDir) Then - oUcb.CreateFolder(TargetDir) + CreateFolder(TargetDir) End If If oUcb.Exists(TargetFile) Then sCurFileExists = ReplaceString(sFileExists, ConvertFromUrl(TargetFile), "<1>") |