Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 21:25 Der er 12 kommentarer og
1 løsning

Vis alle filer i en mappe

Jeg vil gerne have skrevet denne om til ASP, hvis nogen lige kendte et script :-) (Husk det med filstørrelse)

Hvis der er nogen som også ved hvordan jeg tilføjer en "upload ny fil" så sætter jeg 40 ekstra points på!




<html>
  <head>
    <style>
        td        {font-family: tahoma; font-size: 10pt; color: black;}
        a        {font-family: tahoma; font-size: 10pt; color: maroon;}
        a:hover  {font-family: tahoma; font-size: 10pt; color: red;}
    </style>
  </head>
  <body>
    <table>
      <tr><td>Name</td><td>Size</td></tr>
    <?
        $d = dir(".");
        while (false !== ($entry = $d->read())) {
            $size = round(filesize($entry) / 1024, 2) . " kb";
            if ($entry == ".."){
                echo "        <tr><td><a href=\"..\">Parent Directory</a></td><td></td></tr>\n";
            } elseif ($entry <> "."){
                echo "        <tr><td><a href=\"" . $entry . "\">" . $entry . "</a></td><td align=\"right\">" . $size . "</td></tr>\n";
            }
        }
        $d->close();
    ?>
    </table>
  </body>
</html>
Avatar billede cht Nybegynder
25. februar 2003 - 21:29 #1
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 21:38 #2
thx, så skal de bare laves til links!
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 21:43 #3
Hvis du skriver det, er der points ;)
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 21:44 #4
Hmm.... Kan man ikke også angive størrelsen på filerne?
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 21:48 #5
Jeg skal bruge et hurtigt svar!
Avatar billede cht Nybegynder
25. februar 2003 - 22:03 #6
ok den skulle være her:

<%
folder = Server.Mappath(".")

if request.querystring("folder") <> "" then
folder = (request.querystring("folder"))
end if

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folder)

folder = fso.GetFolder(folder)

response.write "<a href='filename.asp?folder=" & folder & "\.." & "'>Forrige mappe</a><br>"

Set fc = f.SubFolders
For Each f1 in fc
response.write "<a href='filename.asp?folder=" & folder & "\" & f1.name & "'>" & f1.name & "</a><br>"
Next
%>
Avatar billede cht Nybegynder
25. februar 2003 - 22:04 #7
du kan også sagtens få størrelsen på filerne det er bare: f1.size

omregnet til kilobyte:
Formatnumber(f1.size/1024,2)
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 22:12 #8
når man klikker på linket, kommer man til en tom side
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 22:13 #9
og der bliver jo kun linket til mapper, ikke filer! Jeg er n00b sååh... ;)
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 22:14 #10
oki det med linksne ordede jeg selv, men så er det bare filerne...!
Avatar billede cht Nybegynder
25. februar 2003 - 22:21 #11
ok, tilføj nedenstående kode under den første kode. Visning af filer:

<%
response.write "<hr>"

Set fc = f.Files
For Each f1 in fc
response.write f1.name & "<br>"
Next

response.write "<br>Antal filer: " & fc.Count
%>
Avatar billede michaelb-er-slettet Nybegynder
25. februar 2003 - 22:25 #12
Okay prøver
Avatar billede michaelb-er-slettet Nybegynder
04. marts 2003 - 14:21 #13
www.michaelb.dk/images - det blev resultatet! Tak for hjælpen...
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