Borrar todos los archivos de un directorio

[izar]

Hay final hice esto y parece que funciona

Dim dirs As String() = Directory.GetFiles(Application.StartupPath & "\BACKUP\", "*.*")
Dim dir As String

For Each dir In dirs
File.Delete(dir)
Next