Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!pt.cs.cmu.edu!andrew.cmu.edu!mg2n+
From: mg2n+@andrew.cmu.edu (Martin G. Greenberg)
Newsgroups: comp.lang.pascal
Subject: Re: Deleting files in MS-DOS
Message-ID: 
Date: 16 Aug 89 18:53:46 GMT
Organization: Class of '91, Carnegie Mellon, Pittsburgh, PA
Lines: 20

If you're using Turbo Pascal, it's relatively easy to erase a given file:
The code below will erase the file named "demo.foo" provided the file is
not read only.

PROCEDURE Demo;
VAR
    File2Kill : Text;  (* Declaring as text will allow any file to be erased *)

BEGIN
    Assign (File2Kill, 'DEMO.FOO');
    Erase (File2Kill)
END;

As to erasing an entire directory and/or subdirectories, you could use
Turbo's "FileFind" procedure/function and a while loop to erase the
whole directory.

Hope this helps.

                                              MGG