<HTML><BODY>
<DIV>Think you got the wrong idea Ross. I am SEARCHING FOR zip files, not
searching them....well I WILL be searching them when I have isolated the
files I need, but this will be done via a VCL control.</DIV>
<DIV> </DIV>
<DIV>Jeremy</DIV>
<DIV><BR> </DIV>
<BLOCKQUOTE style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px;
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">-----Original
Message-----<BR>From: "Ross Levis" <ross@stationplaylist.com><BR>To:
"NZ Borland Developers Group - Delphi List" <delphi@ns3.123.co.nz><BR>
Date: Thu, 22 Sep 2005 12:35:51 +1200<BR>Subject: Re: [DUG] Grouping
files<BR><BR>
<DIV><FONT face=Arial size=2>I don't think dir works with ZIP files. I
would be surprised FindFirst/FindNext worked with zip files.
So how did you get a TSearchRec containing files within a zip
file?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Ross.</FONT></DIV>
<BLOCKQUOTE style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px;
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>
From:</B> <A title=KuetFung.Chong@sungard.com
href="javascript:openWin('/WorldClient.dll?Session=BFVVMCK&View=Compose&To=KuetFung.Chong@sungard.com&New=Yes','Compose',800,600,'yes');">
KuetFung.Chong@sungard.com</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=delphi@ns3.123.co.nz
href="javascript:openWin('/WorldClient.dll?Session=BFVVMCK&View=Compose&To=delphi@ns3.123.co.nz&New=Yes','Compose',800,600,'yes');">
delphi@ns3.123.co.nz</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, September 22, 2005
12:28 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [DUG] Grouping files</DIV>
<DIV><BR></DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
Not sure this will be faster or easier:</FONT></SPAN></DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
</FONT></SPAN> </DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
Execute the DOS command</FONT></SPAN></DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
</FONT></SPAN> </DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
dir /a-d /od /tc > files.txt</FONT></SPAN></DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
</FONT></SPAN> </DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
Read "files.txt" to get the list of files you want - not pretty but
possible.</FONT></SPAN></DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
</FONT></SPAN> </DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
Cheers,</FONT></SPAN></DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
Kuet-Fung</FONT></SPAN></DIV>
<DIV><SPAN class=752422400-22092005><FONT face=Arial color=#0000ff size=2>
</FONT></SPAN> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma size=2>
-----Original Message-----<BR><B>From:</B> <A
href="javascript:openWin('/WorldClient.dll?Session=BFVVMCK&View=Compose&To=delphi-bounces@ns3.123.co.nz&New=Yes','Compose',800,600,'yes');">
delphi-bounces@ns3.123.co.nz</A> [mailto:delphi-bounces@ns3.123.co.nz]<B>On
Behalf Of </B>Jeremy Coulter<BR><B>Sent:</B> Thursday, 22 September 2005
11:41<BR><B>To:</B> delphi@delphi.org.nz<BR><B>Subject:</B> [DUG] Grouping
files<BR><BR></FONT></DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
Hi All.</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">I
have been given a request that means I need to look inside some zip files in
an archived dir we have.</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">I
only need to look at certain files within a certain file date range BUT, we
unfortunitly have over 7700 files in this dir !!!! I know, I know....but
this is only a couple of mnths worth of files ! so we kinda have to live
with.</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
Is there a way to "Group" files togeither so that when I do a TSearchRec
search, the files are in decending order of date?</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
Then, I can look at the file date and if its not within the range, I can
stop the searchrec.....I hope you understand what I mean.</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
<FONT face=Arial></FONT> </DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">I
thought about loading the files into an array, and sorting them on date then
getting rid of the ones I dont need or as it loops thru, just ignore the
ones I dont want, but this is just as slow as doing a SearchRec.</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
anyone got any ideas?</DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
<FONT face=Arial></FONT> </DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">
Jeremy</DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE>
</BODY></HTML>