I wrote a procedure which goes something like the following

MyDeleteDirectory(Dirname)
        GetDirList (using FindFirst, FindNext etc.)
        for each dir entry
                if File then deletefile
                else if Directory then MyDeleteDirectory
        DeleteDir(Dirname)

Note: Don't delete . or .. because you will recursively delete parent
directories as well.

> -----Original Message-----
> From: gajo [mailto:[EMAIL PROTECTED]]
> Sent: Saturday, 21 January 1995 06:58
> To: Multiple recipients of list delphi
> Subject: [DUG]: Delete *.*
> 
> 
> How can I delete all files and subdirectories in a directory? Sort of
> like deltree in MS-DOS. If you don't know the answer to this, then I
> would be happy by just knowing how to do a del *.* (delete 
> all files in
> a dir) in Delphi 3.
> 
> Thanks, Gajo
> 
> --------------------------------------------------------------
> -------------
>     New Zealand Delphi Users group - Delphi List - 
> [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
> 
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to