Find den nyste fil

Øhhh for at lave et sprøgsmål ud af det =) Hvordan finder jeg den nyste fil og udskriver filnavnet på den =) som skrivet skal det være gif eller jpg

Nu skal den finde den nyeste fil i en mappe. Du skal nok bruge FileSystemObject, men lige hvordan ved jeg ikke lige.
Hvis alle filer lå i en database eller med link i en database ville man nemt kunne sortere dem.

men det gør dig ikke... det var det jeg ville slippe for... for hvis jeg sider og lavet nogle billeder gemmer jeg dem bare i den mappe også tænker jeg ikke mere over det =)

Description

Returns the date and time that the specified file or folder was last modified. Read-only.

Syntax

object.DateLastModified

The object is always a File or Folder object.

Remarks

The following code illustrates the use of the DateLastModified property with a file:

Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified 
    MsgBox s, 0, "File Access Info"
End Sub

Lidt at starte på. Dette returnere hvornår en fil sidst er blevet modificeret.
Så skal det ændres til det du skal bruge eller også er der en metode til det.

se mere her: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vaprodrives.asp

okey skal jeg bare sætte den sub ind i min kode....
og ud skrifte MsgBox med Response.writh ??
men hvordan sætter jeg vilken fil den skla kigge på?

Denne kode kan finde den nyeste gif eller jpg

<%
function GetExt(FileName)
Dim p
  GetExt = ""
  p = inStr(FileName, ".")
  if (p > 0) then GetExt = LCase(Right(FileName, len(FileName) - p))
end function

function GetLastFile(folderspec)
  Dim fs, f, f1, fc, s, e
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(folderspec)
  Set fc = f.Files
  lastd = 0
  GetLastFile = "Ingen filer"
  For Each f1 in fc
    if f1.DateLastModified > lastd then
      e = GetExt(f1.name)
      if e = "gif" or e = "jpg" then
        GetLastFile = f1.name
      end if
    end if
  Next
End function

f = GetLastFile(Server.MapPath("chat"))
Response.Write("<br><br>" & f)
%>

takker =)