Dim dirs As String() = Directory.GetFiles("C:\CARPETA\", "*.*") Dim dir As String For Each dir In dirs File.Delete(dir) Next