Delete Directory Contents/DOS Shell

[Edd]

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!

 

[Chip Pearson]

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

 

[Chip Pearson]

Or, shorter

Kill "H:\test\*.*"



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

 

[Gary''s Student]

What you are trying to do can be a little dangerous. The safest approach
might be to create a small .bat file, say dangerous.bat, and fully test it.
Then use SHELL to run the bat file:


Sub Macro1()
x = Shell("cmd.exe /c C:\belfry\dangerous.bat", 1)
End Sub

The danger is that if anything goes wrong with the CD commands in the bat
file, really bad things can happen.