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: Rename - forbid overwrite file by directory and vice versa

Browse source
This commit is contained in:
Alexander Koblov 2021-01-11 17:46:03 +00:00
commit e636d455af
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/filesources/filesystem/ufilesystemsetfilepropertyoperation.pas
View file

@ -339,6 +339,9 @@ begin
// Check if target file exists.
if FileGetAttrUAC(NewName, NewAttr) then
begin
// Cannot overwrite file by directory and vice versa
if fpS_ISDIR(NewAttr.FindData.st_mode) <> aFile.IsDirectory then
Exit(sfprError);
// Special case when filenames differ only by case,
// see comments in mbRenameFile function for details
if (UTF8LowerCase(OldName) <> UTF8LowerCase(NewName)) then
@ -373,6 +376,9 @@ begin
NewFileAttrs := FileGetAttrUAC(NewName);
if NewFileAttrs <> faInvalidAttributes then // If target file exists.
begin
// Cannot overwrite file by directory and vice versa
if fpS_ISDIR(NewFileAttrs) <> aFile.IsDirectory then
Exit(sfprError);
case AskIfOverwrite(NewFileAttrs) of
fsourOverwrite: ; // continue
fsourSkip: