Finde den nyeste mappe

Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFileSys.GetFolder(server.mappath("..\billeder\")) 'her skal din egen sti stå

For Each oFile In oFolder.SubFolders
folder_name = oFile.Name
response.write folder_name & "<br>"
next

Den finder jo ikke den nyeste mappe. Altså det senst oprettede mappe?

dim fso, oFolders, oFolder

Set fso = Server.CreateObject("Scripting.FileSystemObject")
set oFolders = fso.GetFolder(Server.Mappath("")) 'Eller den fysiske sti. fso.GetFolder("c:\wwwroot\")

Dim tmpDate
For Each oFolder in oFolders.SubFolders
    If tmpDate = "" Then
        tmpDate = oFolder.DateCreated
    Else
        If tmpDate < oFolder.DateCreated Then
            tmpDate = oFolder.DateCreated
        End If
    End If
Next
Response.Write tmpDate
set fso = nothing

Den skulle lige rettes til, jo så virkede den. Smid et svar :)

ok