VBS: ordenar por fecha de creacion

[guif]

como puedo ordenar la salida de datos de un script???
Estoy listando unos ficheros de una carpeta y me gustaria que se ordenaran segun la fecha de modificacion.

Código:

Option Explicit 
WScript.Echo ShowFolderList("C:\Documents and Settings\")
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 = s & f1.name &  " (" & f1.DateLastModified &  ")"
      s = s & VbCrLf 
   Next
   ShowFolderList = s
End Function

[guif]

alguna ayuda?

[guif]

y en Visual Basic, se podria hacer? o conoceis algo???

[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

[guif]

y para especificar una ruta?
esto se daria el caso cuando tengo una conexion ya hecha, hacia el PC, es decir, si en Mi PC aparece la unidad montada.
Para entrar tendria que hacer algo como:

ShowFolderList "\\519004PC\c$\Documents and Settings\"

?????

[David]

Iniciado por guif

y para especificar una ruta?
esto se daria el caso cuando tengo una conexion ya hecha, hacia el PC, es decir, si en Mi PC aparece la unidad montada.
Para entrar tendria que hacer algo como:

ShowFolderList "\\519004PC\c$\Documents and Settings\"

?????

haciendo como mencionaste no creo que tengas problemas, o te da algún error...

[guif]

si. me da un error: "ByRef argument type mismatch"

en la linea:
s = OrderDate(s, f1.Name & " (" & f1.DateLastModified & ")" & vbCrLf)

igualmente, si quiero que la salida sea por un listbox pondria esto no?

listbox1.additem OrderDate([s, f1.Name & " (" & f1.DateLastModified & ")"

[David]

Iniciado por guif

si. me da un error: "ByRef argument type mismatch"

en la linea:
s = OrderDate(s, f1.Name & " (" & f1.DateLastModified & ")" & vbCrLf)

igualmente, si quiero que la salida sea por un listbox pondria esto no?

listbox1.additem OrderDate([s, f1.Name & " (" & f1.DateLastModified & ")"

Coloca:

Código:

 
(ByVal s As String, ByVal NewData As String)

en vez de:

Código:

 
(s As String, NewData As String)

[guif]

ahora en la linea:

Function GetDate(s As String) As Date
GetDate = CDate(Mid(s, Len(s) - 11, 10))
End Function

me marca: getdate = 0:00:00

[David]

Iniciado por guif

ahora en la linea:

Function GetDate(s As String) As Date
GetDate = CDate(Mid(s, Len(s) - 11, 10))
End Function

me marca: getdate = 0:00:00

tal vez porque en red no te devuelva la fecha de modificación... intenta ejecutar paso a paso a ver qué fecha te devuelva...