hmm
snap m niet..
het werkt fijn als ik Inmemory:=False heb staan.
Code:
Ziparchive.FileName :='c:\2.zip';
Ziparchive.BaseDir:='c:\';
Ziparchive.InMemory:=False; // Met True geen idee.. filecount werkt dan niet
Ziparchive.OpenArchive;
with Ziparchive do
begin
if (FindFirst('*.*',ArchiveItem,faAnyFile-faDirectory)) then
repeat
{$region}
if UpperCase(ExtractFileExt(ArchiveItem.FileName)) ='.exe'
then
Ziparchive.ExtractFiles(ArchiveItem.FileName);
until (not FindNext(ArchiveItem));
if Ziparchive.Active = true then Ziparchive.CloseArchive ;
end;
Bookmarks