Fjern ældre dato/FSO

<%
Function createDay(strName)
getDate = strName
getDate = Right(getDate, 14)
getDate = Left(getDate, 8)

'If getDate < Dato Then
    cleanUp(strName)
'End If
End Function

Som det frem går at mit problem at få fjernede filere med ældre dato... eller retter sagt at sammenligne fil dato'er?

Strengen der går ind ser sådanne ud:
abc123_21-06-2004.xml
Den ender med at se sådanne ud efter at ha været kørt igennem det første:
21-06-2004

PFT