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: Put in the TAR archive first

Browse source
This commit is contained in:
Alexander Koblov 2019-11-11 18:13:12 +00:00
commit abbeefe8d3
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/filesources/uarchivefilesourceutil.pas
View file

@ -273,7 +273,11 @@ procedure FillAndCount(Files: TFiles; out NewFiles: TFiles;
if (sr.Name='.') or (sr.Name='..') then Continue;
aFile := TFileSystemFileSource.CreateFile(srcPath, @sr);
if aFile.IsDirectory and (not aFile.IsLinkToDirectory) then
if aFile.IsLink then
begin
NewFiles.Add(aFile.Clone);
end
else if aFile.IsDirectory then
begin
aFolders.AddObject(srcPath + sr.Name + DirectorySeparator, aFile);
end
@ -307,7 +311,11 @@ begin
for I := 0 to Files.Count - 1 do
begin
aFile := Files[I];
if aFile.IsDirectory and (not aFile.IsLinkToDirectory) then
if aFile.IsLink then
begin
NewFiles.Add(aFile.Clone);
end
else if aFile.IsDirectory then
begin
aFolderList.AddObject(aFile.Path + aFile.Name + DirectorySeparator, aFile.Clone);
end