Avatar billede Remo_Munk_Olesen Nybegynder
04. juli 2013 - 07:26 Der er 6 kommentarer og
1 løsning

vil ikke vise den nyeste fil

Har denne hjemmeside

www.ejerlauget-kornumgaard.dk

i min tabel "Aktuelt referat" skal den nyeste upload fil stå.
men som man kan se, er det ikke den nyeste pdf som står der, skulle være den som hedder referat270213.pdf, jeg har prøvet at uploade referat270213.pdf her i dag, men den vil ikke komme frem som det nyeste.

Nogle som kan hjælpe mig, please



<!DOCTYPE html>
<HTML lang="da">
    <HEAD>
        <META charset="utf-8" />
        <META name="keywords" content="" />
        <META name="description" content="" />
  <title>Ejerlauget Kornumgaard</title>
<link rel="stylesheet" href="css/ek.css" type="text/css"/>
</head>

<body>

<table>
<%
Dim FSO, F, Filer, fil
Dim kolonner
kolonner = 1

Dim i, fundet, filnavn, fildato, filrettet
i = 0
fundet=0
filnavn=""

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("pdf"))
Set Filer = F.Files
For Each fil In Filer
   
    Select Case lcase(FSO.GetExtensionName(fil))
        ' Tilladte filtyper...
        Case "asp", "txt", "shtml", "html", "pdf"
            If fundet=0 then
                filnavn=fil.Name
                fildato=fil.DateCreated
                filrettet=fil.DateLastModified
            else
                if fildato < fil.DateCreated then
                    filnavn=fil.Name
                    fildato=fil.DateCreated
                    filrettet=fil.DateLastModified
                end if
    end if
            fundet=1
        Case else
    End Select
Next
    If filnavn <> "" then
        response.write "<tr>"
        response.write "<td><a href=""pdf/" & filnavn & """ title=""Sidst ændret: " & filrettet & ", oprettet: " & fildato & """>" & filnavn & "</a></td>"
        response.write "</tr>"
    else
        response.write "<tr><td>Ingen fil fundet</td></tr>"
    end if
    set FSO=nothing   
%>
</table>

</body>

</html>
Avatar billede erikjacobsen Ekspert
04. juli 2013 - 09:16 #1
Når formatet du får ud er "28-03-12...." of "27-02-13..." , så er 28 jo større end 27, og kommer derfor ud som den største/nyeste.

Jeg kan ikke på stående fod huske om der en smart måde at omgøre det på i "klassisk" (=gammeldags) ASP.
Avatar billede erikjacobsen Ekspert
04. juli 2013 - 09:25 #2
...ja, og den ikke-nemme måde, er at tage "27-02-2013" og splitte op, og derefter sætte sammen til "2013-02-27" som du kan sammenligne på.

Den nemme ville være at ændre datoformatet et eller andet sted.
Avatar billede claes57 Ekspert
04. juli 2013 - 11:06 #3
den lette ville være (bare fra nu af og fremover) at rette filnavne fra fx referat270213 til referat130227
og så rette linjen
if fildato < fil.DateCreated then
til
if filnavn < fil.Name then

så vil den vise nyeste, også selvom sekretær kom lidt bagud, og først fik lavet sidste måneds referat i dag.
Avatar billede Remo_Munk_Olesen Nybegynder
04. juli 2013 - 22:39 #4
claes57>> synes ikke det helt funger

www.ejerlauget-kornumgaard.dk

<%
Dim FSO, F, Filer, fil
Dim kolonner
kolonner = 1

Dim i, fundet, filnavn, fildato, filrettet
i = 0
fundet=0
filnavn=""

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("pdf"))
Set Filer = F.Files
For Each fil In Filer
   
    Select Case lcase(FSO.GetExtensionName(fil))
        ' Tilladte filtyper...
        Case "asp", "txt", "shtml", "html", "pdf"
            If fundet=0 then
                filnavn=fil.Name
                fildato=fil.DateCreated
                filrettet=fil.DateLastModified
            else
                if filnavn < fil.Name then
                    filnavn=fil.Name
                    fildato=fil.DateCreated
                    filrettet=fil.DateLastModified
                end if
    end if
            fundet=1
        Case else
    End Select
Next
    If filnavn <> "" then
        response.write "<tr>"
        response.write "<td><a href=""pdf/" & filnavn & """ title=""Sidst ændret: " & filrettet & ", oprettet: " & fildato & """>" & filnavn & "</a></td>"
        response.write "</tr>"
    else
        response.write "<tr><td>Ingen fil fundet</td></tr>"
    end if
    set FSO=nothing   
%>
Avatar billede claes57 Ekspert
05. juli 2013 - 09:00 #5
sorry - alle filer skal omdøbes før det virker. Prøv evt i en mappe med få filer.
Avatar billede Remo_Munk_Olesen Nybegynder
08. juli 2013 - 21:34 #6
claes57>> Drop et svar, jeg skulle bare omdøbe pdf filerne rigtigt.
Tak for hjælpen.
Avatar billede claes57 Ekspert
09. juli 2013 - 09:50 #7
ok
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester