FIX: Issue 0000041

This commit is contained in:
Alexander Koblov 2020-02-18 17:29:17 +00:00
commit 649727b76b

View file

@ -244,11 +244,17 @@ begin
aFile := CurrentSubNode.TheFile;
if FRenamingRootDir and (aFile = FRootDir) then
TargetName := CurrentTargetPath + FRenameMask
TargetName := FRenameMask
else if FRenamingFiles then
TargetName := CurrentTargetPath + ApplyRenameMask(aFile, FRenameNameMask, FRenameExtMask)
TargetName := ApplyRenameMask(aFile, FRenameNameMask, FRenameExtMask)
else
TargetName := CurrentTargetPath + aFile.Name;
TargetName := aFile.Name;
if FMode <> wpohmCopyOut then
TargetName := CurrentTargetPath + TargetName
else begin
TargetName := CurrentTargetPath + ReplaceInvalidChars(TargetName);
end;
with FStatistics^ do
begin