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: Bug [0001483] Ghost folders on 7z archives viewed with 7zFM

Browse source
This commit is contained in:
Alexander Koblov 2016-08-09 19:08:42 +00:00
commit 91a3473e83
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
plugins/wcx/sevenzip/src/SevenZipFunc.pas
View file

@ -356,7 +356,7 @@ begin
FileName := WideString(AddList);
FileNameUTF8:= Utf16ToUtf8(WideString(SrcPath + FileName));
if FileName[Length(FileName)] = PathDelim then
Archive.AddDirectory(FilePath + FileName, FileNameUTF8)
Archive.AddDirectory(FilePath + Copy(FileName, 1, Length(FileName) - 1), FileNameUTF8)
else
Archive.AddFile(FilePath + FileName, FileNameUTF8);
if (AddList + Length(FileName) + 1)^ = #0 then