TIP: Click on subject to list as thread! ANSI
echo: z3_pascal
to: Doug Brendish
from: Ian Smith
date: 1996-03-12 08:21:48
subject: Making directories

Hiya Doug,

 DB> This is how I would probably do it. Well there may be
 DB> better ways, but this would probably be fairly thorough in
 DB> getting rid of the files and any sub dirs in the work dir
 DB> too. I have not tested it!! I only just wrote it up just
 DB> then as an example, so there may be errors.

Looks pretty neat, I'll add it to my snippets file if you'll finish it :) 
Only obvious things to me without trying it are:

 DB> Uses DOS;

{ needs a forward declaration of procedure Del_Work here, as Prune uses it,
and it uses Prune - say: }

Procedure Del_Work (P : DirStr); forward;

 DB> Procedure Prune(P); {Recursive file + dir delete}

Procedure Prune (P : DirStr);  { string, if ya druther - something, though }

 DB> Var Path:string;
 DB>     SR:Searchrec;
 DB>     F:File;
         Err : boolean;  { :) }

[...]

 DB> Procedure Del_Work(P);

Procedure Del_Work (P : DirStr); { .. }

[...]

 DB> I also don't
 DB> have Delphi(Not till they make it for OS/2) so this is DOS.

I wouldn't hold your breath, though it would be nice if someone did at
least a bit of a port, or added some units/whatever to provide access to
OS/2 stuff ..

BTW, I've got those patches here to BP7 to make it work with OS/2.  Only 16
bit, but it beats running it under DOS, I'm told .. waiting to find out ..

Cheers, Ian

--- MaltEd 1.0.b5
* Origin: Magic Puddin' BBS Nimbin 066-89-1843 V.32bis/V.42 (3:626/660)
SEEN-BY: 633/267 270
@PATH: 626/660 711/401 808 50/99 635/544 727 633/267

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.