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 0 07/11/202415:34 -
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 15:32 Søgeknap Af erlandsen i Access
I dag 14:31 Makro - Søg efter værdi på tværs af flere ark Af Chjes94 i Excel
I dag 13:27 video dato optaget Af Malm i Foto & video
I går 19:05 ScanTailor: Hvordan bevarer jeg den originale baggrund Af KurtG i Andet software
I går 17:54 Microsoft lager Af Btimmer i Office & Kontorpakker
White papers
Flere white papers »


Premium
Teaser billede
Microsoft advarer: Installation af Windows 11 på ikke-understøttede pc’er er på eget ansvar
Læs mere »
Intel-CEO Pat Gelsinger trækker stikket: Afslutter sin karriere efter 40 år i toppen af tech-branchen
EU vedtager rammerne for den kommende digitale tegnebog: Snart kan du logge ind på en helt ny måde
Regeringen vil gøre Danmark til verdensførende AI-nation: Her er den store plan
Se alle »
Computerworld
Teaser billede
Omfattende netværksproblemer hos TDC: Nu er årsagen muligvis fundet
Læs mere »
Stortest: Med USB-C skulle alle kabler være lige - men det er de bare slet ikke
Et ”mareridt for privatlivets fred”: Kontroversiel Windows-funktion er udkommet i en test-version
Nørgaard: Sådan spotter du en russisk påvirkningsagent i dit netværk - brug de fem nemme spørgsmål
Se alle »
CIO
Teaser billede
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Læs mere »
Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Microsoft et døgn efter nedbrud: Stadig problemer med Outlook
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
Se alle »
White paper
Teaser billede
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Læs mere »
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Sikkerhed uden grænser: Cisco Hypershield
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Se alle »

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