Finde nyeste filer i flere mapper.

det ville også være rart at kunne se de nyeste oprettede mappenavne..

<%
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFileSys.GetFolder(server.mappath("..\galleri\"))

For Each oFile In oFolder.SubFolders
navn = oFile.Name
  strPhysicalPath = Server.MapPath("../galleri/" & navn)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents
LastModified = objFileItem.DateLastModified


    If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
      ShowPic = Replace(objFileItem.Name, " ", "%20")
%>
<img src="<%="../galleri/" & navn & "/" & showpic%>">

<%
response.write navn & " - " & showpic & "<br>" & LastModified
end if
Next
next
%>

her har du så den finder billedmapper og billeder samt udskiver

og hvis du vil vide hvornår mapperne er oprettet så skift linien ud med denne

LastModified = objFolder.DateLastModified

Umiddelbart ser det rigtigt ud men...

Jeg vil kun have de sidste 8 billeder i alt (ikke i hver mappe), samt den nyeste mappe.

Og helst listet med det nyeste først, hvis man kan ...

<%
'her sletter du det der er i tabellen

Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFileSys.GetFolder(server.mappath("..\billeder\"))


For Each oFile In oFolder.SubFolders
navn = oFile.Name
  strPhysicalPath = Server.MapPath("../billeder/" & navn)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents
LastModified = objFileItem.DateLastModified
'LastModified = objFolder.DateLastModified


    If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
      ShowPic = Replace(objFileItem.Name, " ", "%20")
%>
<img src="<%="../billeder/" & navn & "/" & showpic%>">

<%
response.write navn & " - " & showpic & "<br>" & LastModified
'her lægger du i tabellen
Next
next
%>

Opret en tabel med kolonnerne navn (her lægger du navn og billed) og en kolonne hvor du lægger LastModified ned
inden du lægger ned sletter du alt tidligere deri når det så er indsat så kan du hente de 8 sidste i forhold til datoer - og dem kan du så order by dato
-- husk at angive feltet med LastModified til standard dato

det er vist det nemmeste for dig

Kan man ikke liggee dem i et array, sortere det efter dato og så vise de 8 første ?

jeg er ikke helt stærk i array - så derfor ville jeg lægge dem i en db i stedet

Hvis du vil bruger et array til det så prøv at tage et kig her:

http://www.4guysfromrolla.com/aspfaqs/ShowFAQ.asp?FAQID=118

Eagleeye -> smid lige et svar så jeg kan få lukket denne her...

Der kommer da lige et svar :-)

doh, Der kommer da lige et svar :-)