how to delete files from a directory using VBA

[Luká¹ Cyrankowski]

hallo, my friends,

does anybody know how to delete all files in a concrete directory on a disc
from VBA code?

p.e. in C:\reports - there are already files "....TXT" and at the start of
the VBA I need to have this directory empty.

thanx a lot, Lukas.

 

[Helmut Weber]

Hi Lukas,

like this and in some other ways:

Sub Macro11()
Dim aFile As String
aFile = Dir("c:\temp\*.*", vbNormal)
While aFile <> ""
Kill "c:\temp\" & aFile
aFile = Dir
Wend
End Sub

And have a look at the help for "Dir Function".

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

 

[Karl E. Peterson]

Dim aFile As String
aFile = Dir("c:\temp\*.*", vbNormal)
While aFile <> ""
Kill "c:\temp\" & aFile
aFile = Dir
Wend

Fwiw, a lot of folks have been burned with that general strategy. The "safe" way to
process all files returned by a Dir() loop is to insert them into an array first, and
then iterate the array. If the folder content changes (by deletion, addition,
whatever) during a Dir() loop, the results can become rather unpredictable.

 

[Karl E. Peterson]

Fwiw, a lot of folks have been burned with that general strategy.
The "safe" way to process all files returned by a Dir() loop is to
insert them into an array first, and then iterate the array. If the
folder content changes (by deletion, addition, whatever) during a
Dir() loop, the results can become rather unpredictable.

Overkill for this specific task, but for a very generalized (and robust) approach,
see: http://vb.mvps.org/samples/DirDrill