FIX: TransferLeft and Right commands do not work with folder symbolic links (fixes #2308)

(cherry picked from commit 5fc4cb2e0c)
This commit is contained in:
Alexander Koblov 2025-05-25 13:11:45 +03:00
commit 09cd3790c1

View file

@ -859,7 +859,7 @@ begin
if (fspLinksToLocalFiles in SourcePage.FileView.FileSource.GetProperties) and
(SourcePage.FileView.FileSource.GetLocalName(aFile)) then
begin
if aFile.IsDirectory then
if aFile.IsDirectory or aFile.IsLinkToDirectory then
ChooseFileSource(TargetPage.FileView, aFile.FullPath)
else if not ChooseFileSource(TargetPage.FileView, TargetPage.FileView.FileSource, aFile) then
begin
@ -867,7 +867,7 @@ begin
TargetPage.FileView.SetActiveFile(aFile.Name);
end;
end
else if aFile.IsDirectory then
else if aFile.IsDirectory or aFile.IsLinkToDirectory then
begin
if aFile.Name = '..' then
begin