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

ADD: Create symbolic link error - skip all button

Browse source 
(cherry picked from commit dd7128a35f)
This commit is contained in:
Alexander Koblov 2024-10-28 20:51:37 +03:00
commit 067b4b1e2d
1 changed files with 25 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/filesources/filesystem/ufilesystemutil.pas
View file

@ -81,6 +81,7 @@ type
FSkipRenameError: Boolean;
FSkipOpenForReadingError: Boolean;
FSkipOpenForWritingError: Boolean;
FSkipCreateSymLinkError: Boolean;
FSkipReadError: Boolean;
FSkipWriteError: Boolean;
FSkipCopyError: Boolean;
@ -1355,7 +1356,20 @@ begin
end
else
begin
ShowError(rsMsgLogError + Format(rsMsgLogSymLink, [AbsoluteTargetFileName]));
if not FSkipCreateSymLinkError then
begin
case AskQuestion(rsSymErrCreate.TrimRight(['.']) + ' ' +
WrapTextSimple(AbsoluteTargetFileName, 64) +
LineEnding + LineEnding + mbSysErrorMessage, '',
[fsourSkip, fsourSkipAll, fsourAbort],
fsourSkip, fsourAbort) of
fsourAbort:
AbortOperation;
fsourSkip: ; // Do nothing
fsourSkipAll:
FSkipCreateSymLinkError := True;
end;
end;
Result := False;
end;
end
@ -1374,6 +1388,16 @@ begin
raise Exception.Create('Invalid TargetExists result');
end;
if Result = True then
begin
LogMessage(Format(rsMsgLogSuccess + rsMsgLogSymLink, [aNode.TheFile.FullPath + ' -> ' + AbsoluteTargetFileName]),
[log_cp_mv_ln], lmtSuccess);
end
else begin
LogMessage(Format(rsMsgLogError + rsMsgLogSymLink, [aNode.TheFile.FullPath + ' -> ' + AbsoluteTargetFileName]),
[log_cp_mv_ln], lmtError);
end;
Inc(FStatistics.DoneFiles);
UpdateStatistics(FStatistics);
end;