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: the issue that iCloud can't be packed by MultiArchive/7z

Browse source
This commit is contained in:
rich2014 2026-06-17 16:29:57 +08:00
commit 2f70adb75b
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -259,7 +259,7 @@ begin
if Files.Count <> 1 then
raise Exception.Create('Only a single directory can be set with ExcludeRootDir=True');
NewFiles := TFiles.Create(Files[0].FullPath);
FillAndCountRec(Files[0].FullPath + DirectorySeparator);
FillAndCountRec( IncludeTrailingPathDelimiter(Files[0].FullPath) );
end
else
begin
@ -285,7 +285,7 @@ begin
begin
if CountDirs then
Inc(FilesCount);
FillAndCountRec(aFile.FullPath + DirectorySeparator); // recursive browse child dir
FillAndCountRec( IncludeTrailingPathDelimiter(aFile.FullPath) ); // recursive browse child dir
end
else
begin

4
src/filesources/mounted/umountedfilesource.pas
View file

@ -8,7 +8,7 @@ uses
Classes, SysUtils, Generics.Collections,
Dialogs,
uFile, uFileSource, uFileSourceManager,
uFileSystemFileSource, uWcxArchiveFileSource,
uFileSystemFileSource, uArchiveFileSource,
uFileSourceProperty, uFileSourceOperation, uFileSourceOperationTypes,
uLng, uDCUtils, DCStrUtils;
@ -301,7 +301,7 @@ var
begin
if params.phase<>TFileSourceConsultPhase.source then
Exit;
if NOT params.partnerFS.IsClass(TWcxArchiveFileSource) then
if NOT params.partnerFS.IsClass(TArchiveFileSource) then
Exit;
mountedFS:= params.currentFS as TMountedFileSource;