mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: GioFileSource - Copy files between different locations (fixes #2469)

Browse source
This commit is contained in:
Alexander Koblov 2025-11-04 13:19:34 +03:00
commit c9563cf5ed
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fmain.pas
View file

@ -3713,6 +3713,15 @@ begin
// Replace target by temp directory
TargetFileSource := TTempFileSystemFileSource.Create();
TargetPath := TargetFileSource.GetRootDir;
BaseDir := SourceFileSource.CurrentAddress;
if Length(BaseDir) > 0 then
begin
if StrBegins(TargetFiles[0].Path, BaseDir) and
not StrBegins(TargetFiles.Path, BaseDir) then
begin
TargetFiles.Path := BaseDir + TargetFiles.Path;
end;
end;
ChangeFileListRoot(TargetPath, TargetFiles);
end;