mehrere Verzeichnisse löschen

Ich suche eine Möglichkeit mehrere Verzeichnisse in einem Unterverzeichnis zu löschen.

Dabei bin ich so vorgegangen:

#include <Array.au3> 
#Include <File.au3>


Local $Pfad = "F:\Pictures\test\" 
Local $Verzeichnis = _FileListToArray($Pfad, '2013-*', 2)


;MsgBox(0, 0, _ArrayDisplay($Verzeichnis))


For $i = 0 To UBound($Verzeichnis) - 1 
DirRemove($Verzeichnis[$i], 1) 
Next

Irgendwas passt da aber nicht.
ArrayDisplay zeigt mir jedoch alle Verzeichnisse an.

Un noch eine Frage, wie gebe ich an das nur Verzeichnisse gefunden werden die mit 2013- beginnen und exakt 10 Zeichen lang sind?

Auweia... Naja, man wird alt
Das mit den Zeichen hab ich nun so gelöst: Local $Verzeichnis = _FileListToArray($Pfad, '2013-?????', 2)

Sollte hinhaun, oder?