Ultimo file inviato nel server

[lucadotcom]

Ciao
ho delle immagini di una webcam che vengono inviate ad una cartella del server.
Quale è il codice (usando magari FileSystemObject) per ottenere l'ultima immagine inserita, magari riuscendo anche ad estrapolare l'orario.
E' possibile?

Grazie

[Roby_72]

Con il metodo datelastmodified di filesystemobject dovresti crearti un array o tabella con nomi file e data da ordinare in modo decrescente.
Poi prendi il primo.

Roby

[lucadotcom]

Utilizzando questo codice che recupera tutti i file presenti nella cartella, come posso fare ad ottenere solo l'ultimo?
Grazie

' Dichiara le variabili necessarie
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt
' Definisci il percorso della cartella da leggere
strPath = "webcam/"
strExt = ".jpg"

' Crea gli oggetti FSO necessari
Set objFso = Server.createObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files

' Scorri tutti i file nella cartella
for each strFile in objFiles
' Controlla l'estensione
if Right(strFile.name, Len(strExt)) = strExt then
Response.Write(strFile.name) & "
"
end if
next
' Distruggi oggetti e libera risorse
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing

[Roby_72]

Mettili in un array e prendi, poi, l'ultimo elemento.

Roby