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
I går 17:23 Mine USB stik kan ikke ses nogen steder. Jeg fik en ny PC med windows 11 Af summer i PC
I går 16:49 Kan jeg finde denne excel file igen? Af ABE15 i Mac
I går 16:26 Anden mindste værdi i en række Af ABE15 i Excel
I går 13:48 Manglende hul igennem router Af emanuel i Wifi
I går 13:10 Forlanger KUN pinkode men glemt Af Lars Jørgensen i Windows
White papers
Flere white papers »


Premium
Teaser billede
Microsoft gør klar til at åbne sine danske datacentre: Så mange medarbejdere får de
Læs mere »
Store danske sygehuse mangler helt basale it-sikkerhedsforanstaltninger: "En farlig kombination"
Her er årsagen til fyringer i Rigspolitiets it-afdeling: Disse projekter har trukket benene væk under økonomien
Vigtig deadline nærmer sig for Microsofts partnere: Har under en måned til at blive klar
Se alle »
Computerworld
Teaser billede
Test: Det her er nok det bedste allround-tv, som du kan købe lige nu
Læs mere »
Gratis og helt lovligt: Her kan du læse magasiner og aviser fra hele verden
Test: Hurra - den billigste Mac er nu faktisk også den bedste
Test: På vinter-langtur med den ultimative el-VW
Se alle »
CIO
Teaser billede
Traf afgørende beslutning i 00'erne: Nu høster Salling Group frugterne af sin ERP-strategi
Læs mere »
Skifte væk fra mainframe handlede først om pris – så indså Visma Enterprise, at gevinsten var noget helt andet
Her er årsagen til fyringer i Rigspolitiets it-afdeling: Disse projekter har trukket benene væk under økonomien
Her er de største overraskelser i den danske implementering af NIS2: Det skal du være opmærksom på
Se alle »
Job & Karriere
Teaser billede
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Læs mere »
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Læs mere »
Sådan: Én løsning til compliance, sikkerhed og overblik
Sæt professionel døgnvagt på din it-infrastruktur
Se alle »

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