CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede nielsverner Nybegynder
15. december 2001 - 21:15 Der er 5 kommentarer og
1 løsning

Filer i mappen

Et script der skriver filnavnet på alle filer i den mappe scriptet ligger i... Nogen der lige kan ryste det ud af ærmet?
Avatar billede hy Nybegynder
15. december 2001 - 21:32 #1
<%
set fs = CreateObject(\"Scripting.FileSystemObject\")
    set f = fs.GetFolder(Server.MapPath(\".\"))
    ReDim fileNames(f.files.count)
    ReDim fileSize(f.files.count)
    ReDim fileType(f.files.count)
        i = 0
    For Each fldr in f.files
          fileNames(i) = fldr.name
          fileSize(i) = fldr.size
          fileType(i) = fldr.Type
          i = i + 1
    Next
%>
<html>

<head>

<body>

<table>
  <tr>
    <td>Name:</td>
    <td>Size</td>
    <td>Type</td>
  </tr>
<%
    For i = f.files.count - 1 to 0 step -1
    %>
  <tr>
    <td><a href=\"<%= fileNames(i) %>\"><%= fileNames(i) %></a></td>
    <td><%= fileSize(i) %>
</td>
    <td><%= fileType(i) %>
</td>
  </tr>
<%
    Next
    %>
Avatar billede nielsverner Nybegynder
15. december 2001 - 21:40 #2
Er det min lokale server den er helt galt med, eller hænger siden _meget_ lang tid for til sidst at stoppe med at hente?
Avatar billede hy Nybegynder
15. december 2001 - 21:44 #3
Denne er hurtigere :

<%
set fs = CreateObject(\"Scripting.FileSystemObject\")
    set f = fs.GetFolder(Server.MapPath(\".\"))
    For Each fldr in f.files
    Response.Write  fldr.name & \"<br>\"
    Next
%>

hyde
Avatar billede hy Nybegynder
15. december 2001 - 21:45 #4
Det kommer vel an på om du har 10000 filer i mappen !! , men her kommer den med det samme ??
Avatar billede nielsverner Nybegynder
15. december 2001 - 21:51 #5
Jeg tror det er min server der er træt...
Vi siger tak :O)
Avatar billede hy Nybegynder
15. december 2001 - 21:53 #6
Selv tak !!!
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:27 Office Pro 2019 forsvinder Af mort1 i Office & Kontorpakker
I går 16:34 Se filmen : "Vi, som går køkkenvejen" (Hovedperson : Birgitte Reimer Af Ikke-ekspert i Fri debat
02/0719:07 Mellem tidspunkter Af nyhavn18 i Excel
02/0710:02 Oversigt over antal feriedage Af AnjaJesse i Excel
02/0706:56 manglende filter Af skaanning i E-mail programmer
White papers
Flere white papers »


Premium
Teaser billede
Vil fyre tusindvis af ansatte globalt: Nu reagerer Microsofts danske organisation med 800 medarbejdere
Læs mere »
Staten binder sig med ny aftale til Microsoft i usædvanlig lang tid - og det er der en særlig årsag til
Pengene vælter ud af den danske Dynamics-kæmpe Cepheo i selskabets andet leveår - men forretningen buldrer frem
Du skal opdatere hurtigst muligt: Alvorlig sårbarhed opdaget i Citrix-software
Se alle »
Computerworld
Teaser billede
Danmarks største fiberselskab skifter navn: Norlys skal ikke længere hedde Norlys
Læs mere »
Glemte at fjerne adgang for suspenderet it-medarbejder: Næste dag var kunder i Tyskland og Bahrain låst ude
Amerikansk koncern med 700 ansatte i Danmark: Sender besked til kunder 21 måneder efter storstilet angreb
Microsoft kæmper med at få Copilot ud over rampen – og det skyldes især én ting
Se alle »
CIO
Teaser billede
Microsoft kæmper med at få Copilot ud over rampen – og det skyldes især én ting
Læs mere »
Her står medarbejderne for at ansætte og fyre - og det har gjort rekruttering af it-professionelle langt lettere
Rigspolitiet gør klar til stort opgør med it-evighedskontrakter: Søger hjælp fra leverandørerne
Mange CISO'er mistrives i jobbet: Nu stiller tidligere cyber security-chef i Energinet og Ørsted et kontroversielt forslag
Se alle »
Job & Karriere
Teaser billede
Fungerede ikke: Dropper AI som erstatning for kundeservice-medarbejdere - har nu brug for nye folk
Læs mere »
It-chef og halv it-afdeling fyret i forsikringsselskab på grund af kommentar om potteplante
Danske it-folk tør ikke længere skifte job hele tiden - og det er der en særlig årsag til
Itm8 fyrer: Opsiger ansatte og reorganiserer
Se alle »
White paper
Teaser billede
IT i front: Sådan bliver netværk en strategisk driver
Læs mere »
Sådan automatiserer du vagtplanlægningen med AI
AI og kunderejsen: Sådan vinder du fremtidens forbrugere
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »