浏览代码

FIX: File creation time is changed to now when file is moved (fixes #2020)

Alexander Koblov 3 月之前
父节点
当前提交
2bdc88ee2b
共有 1 个文件被更改,包括 3 次插入10 次删除
  1. 3 10
      src/filesources/filesystem/ufilesystemutil.pas

+ 3 - 10
src/filesources/filesystem/ufilesystemutil.pas

@@ -986,19 +986,12 @@ begin
     end;
     if ACopyTime then
     try
-      if not (caoCopyTimeEx in CopyAttributesOptionEx) then
-      begin
-        if fpCreationTime in SourceFile.AssignedProperties then
-          CreationTime:= DateTimeToFileTimeEx(SourceFile.CreationTime)
-        else begin
-          CreationTime:= TFileTimeExNull;
-        end;
-        LastAccessTime:= DateTimeToFileTimeEx(SourceFile.LastAccessTime);
-      end
+      if fpCreationTime in SourceFile.AssignedProperties then
+        CreationTime:= DateTimeToFileTimeEx(SourceFile.CreationTime)
       else begin
         CreationTime:= TFileTimeExNull;
-        LastAccessTime:= TFileTimeExNull;
       end;
+      LastAccessTime:= DateTimeToFileTimeEx(SourceFile.LastAccessTime);
       // Copy time from properties because move operation change time of original folder
       if not FileSetTimeUAC(TargetFileName, DateTimeToFileTimeEx(SourceFile.ModificationTime),
                                             CreationTime, LastAccessTime) then