FSO nyeste fil i folder

strFilSti = Server.Mappath(strSti)
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        Set objMappe = objFSO.GetFolder(strFilSti)
       
        For Each Item in objMappe.Files

        set fs=Server.CreateObject("Scripting.FileSystemObject")
        set f=fs.GetFile(strFilSti & objMappe.Name)
            Response.Write("The file testread.txt was created on: " & f.DateCreated)
        set f=nothing
        set fs=nothing

        Next

//>Rune

Hmm nok mere sådan her:

        strFilSti = Server.Mappath(strSti)
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        Set objMappe = objFSO.GetFolder(strFilSti)
       
        For Each Item in objMappe.Files

        set fs=Server.CreateObject("Scripting.FileSystemObject")
        set f=fs.GetFile(strFilSti & objMappe.Name)
            For Each FileItem In fs.Files
              Response.Write("The file testread.txt was created on: " & f.DateCreated)
            Next
        set f=nothing
        set fs=nothing

        Next
       
//>Rune

Hov, sådan her:

        strFilSti = Server.Mappath(strSti)
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        Set objMappe = objFSO.GetFolder(strFilSti)
       
        For Each Item in objMappe.Files

        set fs=Server.CreateObject("Scripting.FileSystemObject")
        set f=fs.GetFile(strFilSti & objMappe.Name)
            For Each FileItem In f.Files
              Response.Write("The file " & f.Name & " was created on: " & f.DateCreated & "<br>")
            Next
        set f=nothing
        set fs=nothing

        Next

//>Rune

Takker

Anytime...
Thx 4 Poinz

//>Rune