Browsing dir. structure recursively 1

[TheBugSlayer]

Hello.

I need to be able to browse through the nodes of a directory structure and process all the zip files in it. Can anyone remind me how I can achieve that in Delphi? I am thinking maybe a hidden directory list box could help...

I have a DVD which contains data many zip files in many folders. This is a level one tree, only one level of leaves.

Thanks.

 

[towerbase]

Your code could look something like this recursive procedure:

procedure ProcessAllZipFiles ( path: string );
var
 tsr: TSearchRec;
begin
 path := IncludeTrailingBackSlash ( path );
 if FindFirst ( path + '*', faAnyFile, tsr ) = 0 then begin
  repeat
   if ( tsr.attr and faDirectory ) > 0 then begin
    if ( tsr.name <> '.' ) and ( tsr.name <> '..' ) then
     ProcessAllZipFiles ( path + tsr.name );
   end
   else
    ProcessZipFile ( path + tsr.name );
  until FindNext ( tsr ) <> 0;
  FindClose ( tsr );
 end;
end;

You will need to write a ProcessZipFile procedure to actually process an individual zip file.

So for example, if you want to process all the zip files in your c:\data folder then you would call the above procedure as follows:

  ProcessAllZipFiles ( 'c:\data' );

Andrew
Hampshire, UK

 

[TheBugSlayer]

Towercase,
Five stars. That was great! I will adapt it to my needs.

I think I have become a lazy programmer. I am trying to move into management...

Thanks a lot.