Searching for files

[Sanka]

Hi

I need the code that will look in a folder for all the files that have the same file extension and then to delete/remove all these files

Thanks

Sanka

[Killer42]

Although the FileSystemObject model is probably the better way to go, a very simple method is to use the old Dir() function, like so...

Please be careful playing with this sample code. Since it deletes files, it could have serious consequences.

Dim FileName As String
Dim FolderName As String
FolderName = "C:\Temp\"
FileName = Dir(FolderName & "*.Txt")  ' Get first matching file.
Do While FileName <> ""
  Kill FolderName & FileName
  FileName = Dir()  ' Get next matching file.
Loop