Einige Unterordner löschen, einige nicht mit Visual Basic 2008 Express

Ich habe folgendes Problem:

Ich habe einige automatisch erstellte Archivordner. Diese enthalten Unterordner die nach dem entspr. Monatsdatum benannt werden (bspw: 06-2010).
Jetzt möchte ich mit Visual Basic 2008 die alten Ordner löschen. Es sollen aber die 6 aktuellsten Monate nicht gelöscht werden.
Diese habe ich folgendermaßen herausgefiltert:

Dim a As String = Date.Today.ToString("M-yyyy")
Dim b As String = Date.Now.Month.ToString
Dim c As String = b - 5 & Date.Today.ToString("-yyyy")
Dim d As String = b - 4 & Date.Today.ToString("-yyyy")
Dim ee As String = b - 3 & Date.Today.ToString("-yyyy")
Dim f As String = b - 2 & Date.Today.ToString("-yyyy")
Dim g As String = b - 1 & Date.Today.ToString("-yyyy")


Löschen würde ich so:
IO.Directory.Delete(Pfad, True)

Wie kann ich dort jetzt die Ausnahmen einfügen? Bspw: IO.Directory.Delete(Pfad, Ausgenommen a c d ee f g, True)

Ich hoffe, dass jemand mein "Problem" versteht.
Ich bin auch für andere Lösungsvorschläge offen!

Gruß
Felix

for each dir as ... in io.GetDirectories(Pfad)
  if dir.path <> c and dir.path <> d..... then
    io....delete(dir,true)
  end if
next

Dim i as Integer, Excl As String = "#"  
For i = -5 To 0
    Excl = Excl & DateAdd(DateInterval.Month, i, Date.Today).ToString("M-yyyy") & "#"  
Next
Dim Folder, FolderName As String
For Each Folder In IO.Directory.GetDirectories("D:\Archiv")  
    FolderName = Mid(Folder, InStrRev(Folder, "\") + 1)  
    If InStr(Excl, "#" & FolderName & "#") = 0 Then IO.Directory.Delete(Folder, True)  
Next

If FolderName < EntsprechenderMonat Then ...