Man kan lave noget som scanner igennem filerne sådan her.
Den tjekke så hver fil om det er nyere end den nyeste som den har fundet. FSO kan kun hente filer fra en folder og den kan ikke finde ud af at sortere filerne så derfor er man nød til at lave det sådan den scanner igennem. Du kan prøve dette her du skal måske lige rette denne linje så:
relativSti = "/galleri/"
Så stilen passer med hvor filerne ligger.
<% session.LCID=1030%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fileDate = ""
fileName = ""
filePath = ""
function saveFiles (foldernavn)
Set objFolder = fso.getFolder( foldernavn )
Set objFiles = objFolder.Files
for each file in objFiles
if instr(1,"bmp,gif,jpg,png,jpeg,tif",lcase(fso.GetExtensionName(file.name)))>0 then
if isDate(fileDate) then
if CDate(file.DateLastModified) > CDate(fileDate) then
fileDate = file.DateLastModified
fileName = file.name
fllePath = file.Path
end if
else
fileDate = file.DateLastModified
fileName = file.name
filePath = file.Path
end if
'Response.write file.name & " " & file.DateLastModified & "<br>"
'exit for
end if
next
For each Folder in objFolder.SubFolders
call saveFiles (Folder.path)
next
Set objFolder = Nothing
Set objFiles = Nothing
end function
' Her angiver du stien til hvor billederne ligger
relativSti = "/galleri/"
strPhysicalPath = Server.MapPath(relativSti)
Set objFolder = fso.getFolder( strPhysicalPath )
For each Folder in objFolder.SubFolders
call saveFiles (folder.Path)
next
sti = replace(filePath,Server.MapPath("/"),"",1,-1,1)
sti = replace(sti,"\","/")
Response.Write "<img src=""" & sti & """>"
Response.Write "<br>"
Response.write "Titel : " & sti & "<br>"
Response.write "Dato : " & fileDate & "<br>"
Set objFolder = Nothing
Set fso = Nothing
%>
</BODY>
</HTML>
