CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede lugicy Nybegynder
25. april 2002 - 14:46 Der er 3 kommentarer og
2 løsninger

Hvordan laver...

...jeg, en liste over alle filer på min server:
Hvad de hedder, hvor de ligger og hvor meget de fylder???
Avatar billede coltau Juniormester
25. april 2002 - 14:53 #1
Denne kode kan vise alle filer i mappen \test - kan det hjælpe:

<html>
<head>
</head>

<% ' ASP
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.getFolder(Server.MapPath("\test"))
%>

<table width="90%" align="center">
<tr><td align="left" width='30%'><b>Række 1</b></font></td>
  <td width='30%'><b>Række 2</b></td>
  <td width='30%'><b>Række 3</b></td>
</tr>
<% ' ASP
Cnt = 1
For Each Item in f.Files
  if Cnt = 1 then
    Response.Write("<tr>" & vbCrLf)
  end if
  Response.Write("<td align='left'>" & Item.Name & "</td>" & vbCrLf)
  if Cnt = 3 then
    Response.Write("</tr>" & vbCrLf)
  end if
  Cnt = Cnt + 1
  if Cnt = 4 then
    Cnt = 1
  end if
Next %>

</table>

</body>
</html>
Avatar billede askhoej Praktikant
25. april 2002 - 15:09 #2
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.asp")
Response.Write("The size of test.asp is: ")
Response.Write(f.Size & " bytes.")
set f=nothing
set fs=nothing
%>Output:

The size of test.asp is: 10556 bytes.
Avatar billede coltau Juniormester
25. april 2002 - 15:31 #3
Her er koden der kan vise det hele:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

sub VisFiler(strMappe)
  Dim f
  Set f = objFSO.getFolder(strMappe)
  ' Vis undermapper
  For Each Item in f.SubFolders
'    Response.Write("Mappe: " & Item.Name & "<br>")
    VisFiler(Item)
  Next
  ' Vis filer
  Response.Write("<b>Filer i mappen: " & strMappe & "</b><br>")
  For Each Item in f.Files
    Response.Write(Item.Name & " Size: " & item.Size & " bytes.<br>")
  Next
end sub
 
VisFiler(Server.MapPath("\"))
%>
Avatar billede lugicy Nybegynder
25. april 2002 - 16:05 #4
Hvad er koden, så vis jeg vil har vist, alle undermappernes navne?
Avatar billede coltau Juniormester
25. april 2002 - 16:44 #5
Så skal denn linie ændres:
    Response.Write(Item.Name & " Size: " & item.Size & " bytes.<br>")
til:
    Response.Write(strMappe & Item.Name & " Size: " & item.Size & " bytes.<br>")

således at strMappe udskrives sammen med filnavnet.
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
12/0915:18 Valg af vejrstation Af KurtG i Andet hardware
12/0914:02 Lenovo Yoga hænger i opstart. Af valby i PC
12/0911:40 Fjerne kontoer i Teams Af Klaus Fagerlund i Andet software
12/0909:09 Excel hjælp Af rudbech i Excel
11/0917:10 Joomla artikler Af rmadsen80 i CMS-systemer
White papers
Flere white papers »


Premium
Teaser billede
Forskere skabte et socialt medie befolket af AI-bots: Derfor er det nærmest umuligt at lave sunde platforme
Læs mere »
Uenighed blandt EU-lande kan betyde død for kontroversielt chat-forslag: Danske topforskere advarer mod konsekvenserne
Danske it-konsulenter er under hårdt pres: Hvad er de egentlig værd?
Erik Damgaard vil sælge sit it-guldæg - prisen kan runde to milliarder kroner
Se alle »
Computerworld
Teaser billede
Så meget kommer de til at koste: Apple løfter sløret for helt nye iPhones, Apple-ure og AirPods
Læs mere »
Alt om Apples spritnye iPhone Air – og hvorfor den nok vil floppe
Microsoft åbner for kildekoden til banebrydende program: Et af de få, som Bill Gates selv har kodet
Sådan kan du pludselig på en enkel måde hælde en halv terabyte ekstra RAM i din arbejdsmaskine
Se alle »
CIO
Teaser billede
Er vokset 261 procent på ét kvartal: "Vi oplever en massiv interesse. Kunderne vil have kontrollen tilbage"
Læs mere »
De gyldne tider som it-konsulent er forbi: Noget er i gang med at ødelægge den guldrandede forretningsmodel
Microsoft kalder sine ansatte tilbage på kontoret: Så mange dage om ugen skal de mindst være tilstede
Skynd dig at opdatere: Microsoft har opdaget 86 sårbarheder - flere af dem er alvorlige
Se alle »
Job & Karriere
Teaser billede
Tryg skiller sig af med 225 it-medarbejdere: Outsourcer stor del af sin it-drift til indere
Læs mere »
Lille dansk it-virksomhed fra Vanløse lander drømmekontrakt, der rækker langt ind i stifterens pension
Her er fidusen: Sådan fastholder KMD og Twoday deres it-folk i lang tid
Novo Nordisks CIO og digitale topchef, Anders Romare, forlader selskabet
Se alle »
White paper
Teaser billede
Sådan samler du virtualisering og containerdrift i én løsning
Læs mere »
Sådan får du succes med AI i hele organisationen
Sådan får du succes med AI i hele organisationen
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 »