VBS: ordenar por fecha de creacion

[David]

En Visual Basic la idea que tengo sería así:

Código:

 
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 In fc
s = OrderDate(s, f1.name & " (" & f1.DateLastModified & ")" & vbCrLf)
Next
ShowFolderList = s
End Function
Function OrderDate(s As String, NewData As String) As String
Dim LeftText As String
Dim LastFind As Integer
Do
LastFind = InStr(LastFind + 1, s, vbCrLf)
If LastFind = 0 Then Exit Do
If GetDate(NewData) <= GetDate(Mid(s, Len(LeftText) + 1, LastFind - Len(LeftText))) Then
OrderDate = LeftText & NewData & Right(s, Len(s) - Len(LeftText))
Exit Function
End If
LeftText = Left(s, LastFind)
Loop
OrderDate = NewData
End Function
Function GetDate(s As String) As Date
GetDate = CDate(Mid(s, Len(s) - 11, 10))
End Function