Try the following code to delete all the files in a directory:

Dim FName As String

ChDrive "H:" '<<< CHANGE
ChDir "H:\Test" '<<< CHANGE

FName = Dir("*.*")
Do Until FName = ""
Kill FName
FName = Dir()
Loop



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Edd" wrote in message
...
Hi Experts:

I want to be able to delete the contents of a directory (or
remove and
recreate the same directory). What is the best way to do that?

(My first thought is via a DOS shell using its commands, but I
no not how
plus there has to be a better way.)

After I delete the contents of this directory, using data from
a colum of a
spreadsheet, I would like to create a text file and copy that
file to that
directory (the whose contents was deleted).

Your help is appreciated, please. Thanks!