* Use forcedirectories instead of createdir, patch by petr (bug ID 36672)

git-svn-id: trunk@44126 -

packages/paszlib/src/zipper.pp

@@ -2810,7 +2810,7 @@ Begin
       end
     else if Item.IsDirectory then
       begin
-        if (NOT Flat) then CreateDir(OutputFileName);
+        if (NOT Flat) then ForceDirectories(OutputFileName);
       end
     else
       begin