diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 13:55:04 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-16 13:55:04 +0000 |
| commit | 733baae7e72d69cbbb275f28aa2cb1e41809187f (patch) | |
| tree | e25280932f0baf944c173a6ea0031dea8aaef46d /wizards | |
| parent | a688d2800b5c7061c668a16bbd9c2630eaeb99f2 (diff) | |
#104114# CreateFolder Function now used in CopyRecursively Routine
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/tools/UCB.xba | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index 71dae0e556f8..369abb9d8d5b 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -160,17 +160,13 @@ End Function Function CopyRecursively(SourceFilePath as String, SourceStemDir as String, TargetStemDir as String) -Dim oUcb as Object Dim TargetDir as String Dim TargetFile as String - oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess") TargetFile= ReplaceString(SourceFilePath, TargetStemDir, SourceStemDir) TargetFileName = FileNameoutofPath(TargetFile,"/") TargetDir = DeleteStr(TargetFile, TargetFileName) - If Not oUcb.Exists(TargetDir) Then - oUcb.CreateFolder(TargetDir) - End If + CreateFolder(TargetDir) CopyRecursively() = TargetFile End Function @@ -273,5 +269,5 @@ NOSPACEONDRIVE: CreateFolder = False Resume GOON End If -GOON: -End Function</script:module>
\ No newline at end of file +GOON: +End Function</script:module> |